fizik72, welcome to Tek-Tips to get the most from this site you should read this Faq faq222-2244
Try this:
Dim strPath As String
Dim strFileName As String
strPath = "C:\Program Files\Microsoft Office\Office10"
strFileName = "Customer.dbf"
Dim adoConn As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
adoConn.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & _
"DriverID=277;" & _
"Dbq=" & strPath 'no backslash
adoRS.Open "Select * From \" & strFileName, adoConn, , , adCmdText
Do Until adoRS.EOF
Debug.Print adoRS.Fields(0).Value
adoRS.MoveNext
Loop
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.