Форумы HiProg.com - MS ACCESS, VBA, VB

ник: АлексейЕ
Например так:
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "С:\db3.mdb" /Cmd //User UserName //Pwd 123qwer
И обрабатывать примерно таким кодом:

Dim strUser As String Dim strPass As String Dim intUserStart As Integer Dim intPassStart As Integer Dim intLong As Integer intUserStart = InStr(Command, "/User") + Len("/User") intPassStart = InStr(Command, "/Pwd") + Len("/Pwd") intLong = InStr(intUserStart, Command, "/") If intLong > 0 Then intLong = intLong - intUserStart Else intLong = 100 strUser = Mid$(Command, intUserStart, intLong) intLong = InStr(intPassStart, Command, "/") If intLong > 0 Then intLong = intLong - intUserStart Else intLong = 100 strPass = Mid$(Command, intPassStart, intLong) MsgBox "Логин пользователя - " & strUser & "   Пароль - " & strPass

Для ДрЮня :
Запускать приложения Access с помощью командной строки можно из кода другого приложения или же через VBS, а файлы с расширением .vbs можно шифровать и Вы пароль так просто не увидите.