Подключение к dbf в VB.NET - Visual Basic .NET - Ответ 4120152

        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