Исходя из предположения что сервер доступен проверим наличие одной таблицы открыв RecordSet и поймав ошибку .Вместо CurrentDb у нас будет CurrentProject что экономит на написании строк подключения и передаче пароля:

Sub test()

    Dim rst                   As ADODB.Recordset

    Set rst = New ADODB.Recordset

    On Error GoTo Bad_Table

    rst.Open "Name_Table", CurrentProject.Connection

    MsgBox ("YES Name_Table")

    rst.Close

    Set rst = Nothing

    Exit Sub

Bad_Table:

    MsgBox ("NO Name_Table")

End Sub

T-SQL: