Type mismatch

[Lanc]

Перенес несколько строчек из своей старой проги 97Акцесса в хр.
не работает нив какую опенрекордсет
например строчки такие
Dim dbs As Database
Dim rsMan As Recordset
Set dbs = CurrentDb
Set rsMan = dbs.OpenRecordset("Менеджеры", dbOpenDynaset)

Что тут может быть?

[GSerg]

Имхо, 97 на DAO, а XP на ADO.

[Lanc]

Ну это то понятно.
но почему старая прога в хр робит а то что я пишу, копируя из старой ,нет!

[alibek]

Потому что в старой проге остался референс на DAO
Подключи библиотеку в новой программе и тоже будет работать. Или лучше переделай под ADO. Тогда вместо CurrentDb будешь использовать CurrentConnection (или ActiveConnection, не помню точно).

[RayShade]

А по моему, просто у тебя стоит референс как на DAO так и на ADO. Поэтому надо указывать полное имя класса объекта DAO.Database и DAO.Recordset

[Lanc]

Объясните пожалуйста если не сложно разницу между старой прогой и тем что я пишу щас. Или что мне надо сделать чтобы заработало.
В референсах все одинаково сделал.
Мне надо быстро написать небольшую прогу, а уже столько времени потерял на первых строчках. VBA - щас не основное мое занятие - я раньше писал в 97-98 годах.
Извиняюсь за явно тупые вопросы - но в хелпе не могу найти по теме.