Code:

Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports ADODB


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' Create a connection string
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\af.mdb"
        Dim sql As String = "SELECT * From TabelaProdajaPIO"
        ' Create a Connection object and open it
        Dim conn As Connection = New Connection
        Dim connMode As Integer = ConnectModeEnum.adModeReadWrite
        conn.CursorLocation = CursorLocationEnum.adUseServer
        conn.Open(ConnectionString, "", "")
        'Dim recAffected As Object

        Dim cmdType As Integer = CommandTypeEnum.adCmdUnknown
        Dim rs As Recordset = conn.Execute(sql)

        ' Create dataset and data adpater objects
        Dim ds As DataSet = New DataSet("Recordset")

        rs = New Recordset
        rs.Open(sql, conn, CursorTypeEnum.adOpenStatic)


        Dim da As OleDbDataAdapter = New OleDbDataAdapter
        ' Call data adapter's Fill method to fill data from ADO
        ' Recordset to the dataset
        MsgBox(da.Fill(ds, rs, "SifarnikDrustva"))
        ' Now use dataset


        DataGrid1.DataSource = ds.DefaultViewManager

    End Sub
End Class