Dim objConn As New System.Data.Odbc.OdbcConnection
Dim dtAdapter As System.Data.Odbc.OdbcDataAdapter
Dim dt As New DataTable
Dim strConnString As String
strConnString = "Driver={Microsoft Visual FoxPro Driver};SourceDB=C:\Data;SourceType=DBF"
objConn = New System.Data.Odbc.OdbcConnection(strConnString)
objConn.Open()
Dim strSQL As String
strSQL = "SELECT * FROM customer"
dtAdapter = New System.Data.Odbc.OdbcDataAdapter(strSQL, objConn)
dtAdapter.Fill(dt)
dtAdapter = Nothing
objConn.Close()
objConn = Nothing