пишу:

...

Dim db As Database

s1 = "C:\[Мои документы]\310.mdb"
Set db = DBEngine.OpenDatabase(s1)
...

и выдается ошибка Unrecognized database format "C:\[Мои документы]\310.mdb". Причем не только в модуле VBA, но и в самом VB. Но ведь база нормальная!!! и точно существует в указанном месте!!!
и хорошо открывается в Access.
P.S. DAO установлена с нужным преоритетом
P.P.S. если заменить базу 310 на другую, то все идет и она нормально открывается...

В том то все и дело!!! Она открывается и редактируется!!!! я попробовала ещё одну базу создать ( 310.mdb была создана не на моем компе) и у нее та же самая ошибка!!!!!!!!!!! В VB она возникает когда я хочу указать RecordSource для Data.