DBF database connect with VB.NET

Dim ConnectionString As String

       ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\;Extended Properties=dBase IV"
       Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
       dBaseConnection.Open()

       Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM dbase", dBaseConnection)
       Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.SequentialAccess)

       While dBaseDataReader.Read
           TextBox1.Text = (dBaseDataReader("Column1").ToString)
           TextBox2.Text = (dBaseDataReader("Column2").ToString)
           TextBox3.Text = (dBaseDataReader("Column3").ToString)
       End While

       dBaseConnection.Close()

'Hi
  
'Try this

'Add a datagridview and name it dbfDataGrid


'Coded by 
'jayanthimuurgesan@yahoo.com
'jayanthimuurgesan@gmail.com
'jayanthi.muurgesan.jma@gmail.com
'+91 9994438735

Public Class Form1
    Public dBaseConnection As New System.Data.OleDb.OleDbConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim tb As DataTable
            tb = getdbasetable("select * from arms;")
            dbfDataGrid.DataSource = tb
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Public Function getdbasetable(ByVal SqlString As String) As DataTable
        Dim ReturnableTable As New DataTable
        Try
            OpendBConnection()
            Dim SelectCommand As New System.Data.OleDb.OleDbCommand(SqlString, dBaseConnection)
            Dim TableAdapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
            TableAdapter.SelectCommand = SelectCommand
            TableAdapter.Fill(ReturnableTable)
            Return ReturnableTable
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & SqlString, 16, "Error")
            End
        End Try
        Return ReturnableTable
    End Function

    Public Sub OpendBConnection()
        Try
            Dim ConnectionString As String
            ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbf_folder;Extended Properties=dBase IV"
            dBaseConnection = New System.Data.OleDb.OleDbConnection(ConnectionString)
            If dBaseConnection.State = 0 Then dBaseConnection.Open()
        Catch ex As Exception
            MsgBox(ex.Message, 16, "Error")
        End Try
    End Sub
End Class



'Thanks

'Murugesan G

'jayanthimurugesan@yahoo.com
'jayanthimurugesan@gmail.com