Dim Comm As OleDbCommand
            Dim ds As DataSet
            Dim Conn As OleDbConnection
            Dim Ad As OleDbDataAdapter
            ds = New DataSet()

            frmSelZak.DataGrid1.DataSource = ds 'Контрол Grid связываем с объектом DataSet

            sSQL = "SELECT * FROM ..."   'Здесь твоя табличка из mdb-шника

            Try
                'Создаём и открываем соединение
                Conn = New OleDbConnection()
                Conn.ConnectionString = Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='MyBase.mdb'"                
                Conn.Open()

                Comm = New OleDbCommand(sSQL, Conn) 'Создаём команду выборки данных

                Comm.Connection = Conn 'Указываем команде нужное соединение

                Ad = New OleDbDataAdapter() 'Создаём адаптер данных
                Ad.SelectCommand = Comm 'Указываем команду выборки данных
                Ad.Fill(ds, "Zakaz") 'Заполняем DataSet. 
                frmSelZak.DataGrid1.DataMember = ds.Tables( "Zakaz" ).TableName 'Если этого не написать - будет список таблиц датасета
                Conn.Close()

                Conn.Dispose()
                Comm.Dispose()
                ds.Dispose()
            Catch ex As Exception
                MsgBox( "Тип ошибки: "  & ex.GetType.FullName & vbCrLf & ex.Message)
            End Try

Conn.ConnectionString =  "Provider=Microsoft.Jet.OLEDB.4 . 0 ;Data Source='Имя_файла.mdb'"