что-то не пойму, я использую для открытия dbf стандарный провайдер и все работает:
Public Function LinkToDbase(strBaseType As String, strPath As String, Optional strFileName As Variant) As Boolean

On Error GoTo Err_Db

Dim intBaseParam As Integer ' Параметр подключения к конкретному типу баз dBase

LinkToDbase = False
cnnDb.CursorLocation = adUseClient
Screen.MousePointer = vbHourglass

If InStr(1, strBaseType, "dBaseIII;dBaseIV;dBase5.0") <> 0 Then
Select Case strBaseType
Case "dBaseIII"
intBaseParam = 21
Case "dBaseIV"
intBaseParam = 277
Case "dBase5.0"
intBaseParam = 533
End Select
Else
MsgBox "Тип версии dBase указан не верно!", vbCritical + vbOKOnly, "Ошибка номера версии."
LinkToDbase = False
Exit Function
End If

cnnDb.Open "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=" & intBaseParam & ";Dbq=" & strPath & ";UseProcForPrepare=No"
LinkToDbase = True
Screen.MousePointer = vbDefault
Exit Function

Err_Db:

LinkToDbase = False
Screen.MousePointer = vbDefault
MsgBox "Ошибка подключения" & vbCr & "Функция: LinkToDbase" & _
vbCr & "Переданные параметры:" & vbCr & _
"версия базы: " & strBaseType & _
"путь к файлу базы: " & strPath & _
Err.Description, vbCritical + vbOKOnly, "Ошибка: " & Err.Number

End Function