LISTING 2: Code That Tests a SQL Server Connection Through SQL-DMO’s 
PingSQLServerVersion Method

    On Error Resume Next

    Dim oSQLServer As SQLDMO.SQLServer
    Dim sqlversion As SQLDMO_SQL_VER
    Set oSQLServer = New SQLDMO.SQLServer
    sqlversion = oSQLServer.PingSQLServerVersion("SERVERNAME")
           If Err.Number <> 0 Or sqlversion = SQLDMOSQLVer_Unknown Then
           ' You have a problem.
    End If
    Set oSQLServer = Nothing