Public Function checkForSqlServer() As Boolean
        Dim result As Boolean = False
        Dim first As Integer = _ServerConStr.IndexOf("sqloledb;data source=") + _
          "SQLOLEDB;Data Source=".Length
        Dim last As Integer = _ServerConStr.IndexOf(";", first) - first
        Dim host As String = _ServerConStr.ToLower.Substring(first, last)
        Dim port As String = "1433"
        Try
            Dim t As New Net.Sockets.TcpClient()
            Dim iar As IAsyncResult = t.BeginConnect(host, port, Nothing, _
              Nothing)
            result = iar.AsyncWaitHandle.WaitOne(2000, Nothing) ' 5 Sekunden
        Catch ex As Exception
            'Debug.WriteLine("Server Host nicht erreichbar")
        End Try
        Return result
    End Function