Я сделала свою форму входа в программу.
Пользователь вводит логин и пароль, далее устанавливается
связь с таблицами на SQL Server

Dim i As Integer, tbl As DAO.TableDef, tbls As TableDefs, myDB As Database

Set myDB = CurrentDb()
Set tbls = myDB.TableDefs
For Each tbl In tbls
If Not tbl.Connect = "" Then
tbl.Connect = "ODBC;Description=COMMSQL;DRIVER=SQL Server;SERVER=COMMSQL;APP=Microsoft® Access;" _
& "uid=" & Flogin & ";pwd=" & Fpwd & ";Network=DBMSSOCN;Address=192.168.1.4;"
tbl.RefreshLink
End If
Next

вопрос: Если пользователь вводит неверный пароль или логин ACCESS показывает свое окошко конекта к SQL Server - SQL Server login.
Как сделать , чтобы оно не появлялось, а появлялось мое сообщение об ошибке.

Спасибо!

А как его проверять подскажите?

Dim con As New ADODB.Connection
con.Open "Provider=MSDASQL;FileDSN=exmssql;database=invest;uid=" & glb_login & ";pwd=" & glb_pwd & ";"

О это то что нужно!
Огромное спасибо!