В защищенной БД при предлагается логин пользователя, который входил туда последним. А можно ли сделать так, чтобы высвечивался, скажем "Пользователь" и уже введенный пароль (в принципе, ему можно назначить вход и без пароля - группа Users все ничего страшного в БД не сделает)? Кстати, запуск приложения начинается с проверки принадлежности вошедшего в ту или иную группу. В хелпе нашел про DefaultUser, но что-то не понял, как именно с ней поступить. Или это не то?

Public Sub DefaultUserX()
'Следующая программа задает значения свойств DefaultUser и DefaultPassword,
'определяющие параметры стандартного объекта Workspace.

' Задает значения свойств DefaultUser и DefaultPassword
' для объекта DBEngine.
DBEngine.DefaultUser = "Пользователь"
DBEngine.DefaultPassword = ""

Debug.Print "Задано для DBEngine.DefaultUser 'Пользователь'..."
Debug.Print "Задано для DBEngine.DefaultPassword " & "[пустая строка]..."

Dim wrkJet As Workspace
Dim wrkLoop As Workspace

Dim prpLoop As Property

Set wrkJet = CreateWorkspace("JetWorkspace", "Пользователь", "", dbUseJet)

' Отображает семейство Workspaces.
On Error Resume Next
For Each wrkLoop In Workspaces
Debug.Print "Рабочая область: " & wrkLoop.Name
' Отображает семейство Properties каждого
' объекта Workspace.
For Each prpLoop In wrkLoop.Properties
Debug.Print " " & prpLoop.Name & " = " & prpLoop

Next prpLoop
Next wrkLoop
On Error GoTo 0

wrkJet.Close

End Sub