VBA check op connectie met SQL server

[Basenburgen]

Hallo,

weet iemand misschien of het mogelijk is om in VBA een code te schrijven die controleert of de SQL verbinding tot stand kan komen.
Wanneer hij dit niet kan doen krijg je standaard een melding:

De verbinding is mislukt:
SQLState: 0100
enz
enz

Kan ik dit scherm op een manier afvangen en in VBA, Access instrueren om iets anders te doen?

Alvast bedankt

 

[OctaFish]

Misschien zo:

Dim cnn As ADODB.Connection
Dim canConnect As Boolean

Public Sub TestConnection()

    Set cnn = New ADODB.Connection   
    cnn.Open "Provider=sqloledb;Data Source=GoDaddyServer.com;Initial Catalog=dBase1;UserID=userID; Password='password';"   
    If cnn.State = adStateOpen Then
        canConnect = True
        cnn.Close
    End If   
MsgBox canConnect