Подключение к dbf в VB.NET

        Dim oleConnect As New OleDb.OleDbConnection
        Dim oleCommanda As New OleDb.OleDbCommand
        Dim Path As String = "z:\"
        Dim adapter As OleDbDataAdapter
        Dim ds As New DataSet
        Try
            oleConnect.ConnectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=dBASE IV;User ID=Admin;Password=", Path.ToString)
            oleCommanda.Connection = oleConnect
            oleCommanda.CommandType = CommandType.Text
            oleCommanda.CommandText = "SELECT * FROM password"
            adapter = New OleDbDataAdapter(oleCommanda)
            oleConnect.Open()
            adapter.Fill(ds, "password")
            oleConnect.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            If Not oleConnect Is Nothing Then
                If oleConnect.State <> ConnectionState.Closed Then
                    oleConnect.Close()
                End If
            End If
        End Try
        Me.DataGridView1.DataSource = ds.Tables("password").DefaultView

    Public Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=dBASE IV;User ID=Admin;Password=", Path.ToString) ' Переменная для подключения базы
    Public SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
    Public DT As New Data.DataTable ' Таблица для хранения результатов запроса
    Public DA As OleDb.OleDbDataAdapter

    Public Sub LoadAll() 'Процедура чтения всей таблицы из базы 
        DT.Clear() 'Очищаем таблицу
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM password", Con) ' Указываем строку запроса и привязываем к соединению
        Con.Open() ' Открываем соединение
        SqlCom.ExecuteNonQuery() 'Выполняем запрос
        DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
        DA.Fill(DT) ' Заполняем таблицу результатми
        Me.DataGridView1.DataSource = DT ' Привязываем Грид к источнику данных
        Con.Close() ' Закрываем соединение
    End Sub

Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim oleConnect As New OleDb.OleDbConnection
        Dim oleCommanda As New OleDb.OleDbCommand              
        Dim Path As String = "z:\"
        Dim adapter As OleDbDataAdapter
        Dim ds As New DataSet
        Try
            oleConnect.ConnectionString = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties=dBASE IV;User ID=Admin;Password=", Path.ToString)
            oleCommanda.Connection = oleConnect
            oleCommanda.CommandType = CommandType.Text
            oleCommanda.CommandText = "SELECT * FROM password"
            adapter = New OleDbDataAdapter(oleCommanda)
            oleConnect.Open()
            adapter.Fill(ds, "password")
            oleConnect.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        Finally
            If Not oleConnect Is Nothing Then
                If oleConnect.State <> ConnectionState.Closed Then
                    oleConnect.Close()
                End If
            End If
        End Try
        MessageBox.Show("Таблица создана.", "Экспорт данных")
        Me.DataGridView1.DataSource = ds.Tables("password").DefaultView
 
    End Sub
 
End Class

SqlCom = New OleDb.OleDbCommand("SELECT * FROM active WHERE id='1'", Con) ' Указываем строку запроса и привязываем к соединению

SqlCom = New OleDb.OleDbCommand("SELECT * FROM passwor", Con)

SqlCom = New OleDb.OleDbCommand("SELECT * FROM password", Con)

    Public Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp;Extended Properties=dBASE IV; User ID=Admin;Password=;")
    Public SqlCom As OleDb.OleDbCommand
    Public DT As New Data.DataTable
    Public DA As OleDb.OleDbDataAdapter
    Dim path1 As String = "g:\DBF\password.dbf"
    Dim path2 As String = "c:\temp\pass.dbf"
 
    Public Sub LoadAll() 
        DT.Clear()
        SqlCom = New OleDb.OleDbCommand("SELECT * FROM pass where active=1", Con)
        Con.Open()
        SqlCom.ExecuteNonQuery()
        DA = New OleDb.OleDbDataAdapter(SqlCom)
        DA.Fill(DT)
        Me.DataGridView1.DataSource = DT
        Con.Close()
    End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If IO.File.Exists(path1) Then
            If IO.File.Exists(path2) Then
                IO.File.Delete(path2)
            End If
            IO.File.Copy(path1, path2)
        Else
            MessageBox.Show("Файла не существует", "Внимание!")
        End If
        Call LoadAll()
    End Sub

        If Me.DataGridView1.RowCount = 0 Then
            MsgBox("Нет строк в DataGridView")
            '  ////////////////////
            '   Шагаем дальше.
            ' ////////////////////
        End If

Me.DataGridView1.DataSource = DT