Неопознанная ошибка при подключении к базе данных

    Private Sub Main_1()
        Dim fn As String = "C:\tmp\1.dbf"
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & IO.Path.GetDirectoryName(fn) & ";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 " & IO.Path.GetFileNameWithoutExtension(fn)
        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

Dim tbb As New DataTable

Dim tbs As New DataSet
Dim i As Integer = TableAdapter.Fill(tbs)

Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\tmp\;Extended Properties=dBase IV;User ID=Admin;Password=;"

Private Sub Main_1()
Dim DS as new dataset
        Dim fn As String = "C:\tmp\1.dbf"
        Dim dBaseConnection As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &   IO.Path.GetDirectoryName(fn) & ";Extended Properties=dBase IV;User ID=Admin;Password=;"
        Dim TableAdapter As New System.Data.OleDb.OleDbDataAdapter("SELECT * FROM " & IO.Path.GetFileNameWithoutExtension(fn),dBaseConnection)
        TableAdapter.Fill(ds,"1")
        DataGridView1.DataSource = ds.Tables(0)
    End Sub