База данных и пароль

[Ducis]

Как из VB подключиться к базе данных Access на которую поставлен пароль?
Общий ход понятен:
With Data1
.Connect = "Access"
.DatabaseName = App.Path & "\file.mdb"
.RecordSource = "TabName"
.Refresh
End With
А какое св-во определяет пароль доступа к базе?

[alibek]

Точно не помню, а за хэлпом далеко лезть, но что-то вроде .Connect="Access; pwd=BillGates"

[Ducis]

Вот нашел. Такой вариант работает:

Dim wsMyWorkS As Workspace
Dim dbMyBase As Database
Dim rsRecord As Recordset

Set wsMyWorkS = DBEngine.Workspaces(0)
Set dbMyBase = wsMyWorkS.OpenDatabase(App.Path & "\file.mdb", False, False, "MS Access;PWD=password")
Set rsRecord = dbMyBase.OpenRecordset("TabName", dbOpenTable)

[Ducis]

А для первого варианта точно так, как alibek сказал:
With Data1
.Connect = "MS Access;PWD=password"
.DatabaseName = App.Path & "\file.mdb"
.RecordSource = "TabName"
.Refresh
End With

Только в варианте .Connect = "Access;PWD=password" не работает. Это результат любви BillGates к MS