Чтение таблицы dbf - Visual Basic .NET

Формулировка задачи:

Как реализовать возможность чтения dbf таблицы? Есть реализация чтения .xlsx и xls

               If Path.GetExtension(OpenFileDialog1.FileName).ToString() = ".xlsx" Then
                    MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + OpenFileDialog1.FileName.ToString() + ";Extended Properties=Excel 12.0;")
                Else
                    If Path.GetExtension(OpenFileDialog1.FileName).ToString() = ".xls" Then
                        MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + OpenFileDialog1.FileName.ToString() + ";Extended Properties=Excel 8.0;")
                    Else
                        '] MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + OpenFileDialog1.FileName.ToString() + ";Extended Properties=dBASE IV;")
                    End If
                End If
                MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [" + Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName).ToString() + "$]", MyConnection)
                DtSet = New System.Data.DataSet
                MyCommand.Fill(DtSet)
                MyConnection.Close()

Когда пишу dBASE IV или dBASE III выдает ошибку Строка 'С:\file.dbf' задает ошибочный путь. Проверьте, что путь задан правильно и имеет подключение к серверу, на котором находятся файлы. Когда dBASE V выдает ошибку невозможно найти устанавливаемый ISAM

Решение задачи: «Чтение таблицы dbf»

textual
                            Листинг программы 
                        

                            Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & ";Extended Properties=dBase IV;User ID=Admin;Password=;"
    Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
    dBaseConnection.Open()
    Dim SqlString As String = "select * from tst1" 'tst1.dbf
    Dim TableAdapter As New System.Data.OleDb.OleDbDataAdapter
    TableAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand(SqlString, dBaseConnection)
    Dim tbb As New DataTable
    TableAdapter.Fill(tbb)
    dBaseConnection.Close()
    DataGridView1.DataSource = tbb
End Sub
                        