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