[tt]
Dim Cn As ADODB.Connection
Dim Cm As ADODB.Command
Dim Rs As ADODB.Recordset
Dim DSNName As String, ThePath As String
'DSNName = ODBC DSN
'ThePath = Path to the table you want to open
Set Cn = New ADODB.Connection
Cn.Open "DSN=" & DSNName & ";DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;PageTimeout=5;source= " & ThePath
[/tt]
Remember this uses the foxpro driver for the ODBC DSN with a configuration of a free table directory. (That way you can switch between drives/folder etc.)
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.