Public Function ServerOnline() As Boolean
        Dim ODBCConnection As New Odbc.OdbcConnection
        Dim ODBCCommand As New System.Data.Odbc.OdbcCommand
        ODBCConnection.ConnectionString = ConnectionString
        ODBCCommand.Connection = ODBCConnection
        ServerOnline = True
        Try
            ODBCCommand.Connection.Open()
        Catch ex As Exception
            ServerOnline = False
        Finally
            ODBCCommand.Connection.Close()
        End Try
    End Function

N I C H T S - I S T - S O - W I E - E S - S C H E I N T