LISTING 1: Reader’s Code That Fails to Test a SQL Server
Connection Through SQL-DMO’s VerifyConnection Property

Public oSQLServer As New SQLDMO.SQLServer
    oSQLServer.LoginTimeout = 10
    oSQLServer.Connect StrServer, strUser, StrPwd
oSQLServer.StatusInfoRefetchInterval
    (SQLDMOStatInfo_AutoVerifyConnection) = 10
        CnOk = oSQLServer.IsLogin("sa")
    If Err.Number <> 0 Then
        oSQLServer.ReConnect
    End If
    If oSQLServer.VerifyConnection(2) Then
            'ok
    Else
            'not ok
    End if