According to all posts I have seen, this shold work, but of course it doesn't, does anyone see what is wrong....

DBF is on C:\temp\test.dbf


Dim DB As New ADODB.Connection
Dim RS As New ADODB.Recordset

dim sFilePath as string = "C:\temp"

DB.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & sFilePath & ";Extended Properties=DBase IV")


Dim sQuery As String
sQuery = "Select * From test.dbf"

RS.Open(sQuery, DB, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic, )

It blows up on the RS.Open line, saying file not found. I know it is there.

Thanks so much.