Подключаюсь к серверу.
...
Dim ODBCWorkSpace As Workspace
Dim ODBCConnection As Connection
Set ODBCWorkSpace = CreateWorkspace("WWW", SUID, SPWD, dbUseODBC)
Set ODBCConnection = ODBCWorkSpace.OpenConnection("Connection1", _
dbDriverNoPrompt, True, _
"ODBC;DATABASE=DataBase;UID=" + SUID + ";PWD=" + SPWD + ";DSN=DSN")
...
Проблема, в том, что при неправильном пользователе и пароле выдается ошибка.
Вопрос: как отлавливать ошибку? или как то по другому можно проверять правильностьпароля и идентификации пользователя?

Пишу так:
Set ODBCConnection = ODBCWorkSpace.OpenConnection("Connection1", _
dbDriverNoPrompt, True, _
"ODBC;DATABASE=DataBase;UID=" + SUID + ";PWD=" + SPWD + ";DSN=DSN")
If Err.Number = 3146 Then
MsgBox "Совсем плохой стал? Пароль забыл?"
End If
..
но, не доходит до проверки ошибки. На предыдущем операторе останавливается.
????

Всем спасибо. С вашей помощью разобрался.