Пытаюсь подключится к VFP3 через DAO таким образом:

Sub OpenConnectionX()

Dim wrkODBC As Workspace
Dim conPubs As Connection
Dim constr As String
constr = "SourceType=DBF;Exclusive=No;SourceDB=d:\;Driver={Microsoft Visual FoxPro Driver}"

Set wrkODBC = CreateWorkspace("NewODBCWorkspace", _
"admin", "", dbUseODBC)

Set conPubs = wrkODBC.OpenConnection("Connection1", _
dbDriverNoPrompt, , _
"ODBC;" & constr)

End Sub

На последней строке пишет ошибка выполнения 3146
odbc call failed

Что я сделал неправильно?

У меня установлен Аксес97