Проблемы с MS Access 2003

[memex]

В модуле доступа к базе данных не могу создать соединение.
Код Const providerStr = "Provider=Microsoft.Jet.OLEDB.4.0;" + _ "DataSource" + DatabasePath ... ... ... Catalog.ActiveConnection = providerStr в последней строке говорит
"Runtime error `-2147217843 (80040e4d)`
[Microsoft] [Дистпетчер драйверов OBCD] источник данных не найден и не указан драйвер, используемый по умолчанию

Как пофиксить???

Листинг всего кода программы
Sub DisplayFields()
Const DatabasePath = "D:\db1.mdb"
Const ProviderStr = "Provide.r=Microsoft.Jet.OLEDB.4.0;" + " Data source = DatabasePath"
Dim Connection As New ADODB.Connection
Dim Catalog As New ADOX.Catalog
Dim RecordSet As New ADODB.RecordSet
Dim Field As Field
Connection.Open ProviderStr
Set Catalog.ActiveConnection = Connection
RecordSet.Open "CONTACTS", Catalog.ActiveConnection, adOpenKeyset
RecordSet.Fields.Refresh
For Each Field In RecordSet.Fields
Debug.Print Field.Name & ", " & Field.Type & ", " & Field.Size
Next
RecordSet.Close
Set RecordSet = Nothing
Set Catalog = Nothing
Connection.Close
Set Connection = Nothing
End Sub

 

[a.n.onim]

Надо исправить ошибку в определении константы, должно заработать:

Const ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;" + " Data source =" + DatabasePath

Если будут проблемы - пиши [email protected]