Код не работает на OpenDatabase
Dim wrkSpace As Workspace
Dim db1 As Database
Dim rs As Recordset
Set wrkSpace = CreateWorkspace("", "admin", _
"", dbUseJet)
Set db1 = wrkSpace.OpenDatabase("C:Program FilesMicrosoft OfficeOfficeSamplesÁîðåé.mdb", _
False, False)
Set db1 = wrkSpace.OpenDatabase("Northwind.mdb", _
True)
Set rs = db.OpenRecordset("Òîâàðû", dbOpenDynaset)