Доступ к запороленному mdb-файлу аксеса через DAO

[John_K]

без ODBC
Через ADO (через ConnectionString) вроде получилось, но там RecordSet другой, - неохото переделывать.
C какими парам. в OpenDatabase ee открыть, или еще как?

[abc]

без ODBC
Через ADO (через ConnectionString) вроде получилось, но там RecordSet другой, - неохото переделывать.
C какими парам. в OpenDatabase ee открыть, или еще как?

dim db as DAO.Database
dim strHBD As String

'Set recordset = object.OpenRecordset (source, type, options, lockedits)

strHBD = ";PWD=" & "Твой_Пароль"
Set db= OpenDatabase("NameBase", False, True, strHBD)

У меня работает. Пробуй. Удачи.