Public Function IsSQLServerOnline(conn As String) As Boolean
        Try
            Using server As New SqlClient.SqlConnection(conn)
                server.Open()
                Return (server.State = ConnectionState.Open)
            End Using
        Catch ex As SqlClient.SqlException
            modDiverses.LogErrorSchreiben(ex.Message, ex.ToString, "")
            Return False
        End Try
    End Function

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)