Function VerbindungsTest() As Integer
 
        Try
 
            Dim Conn As SqlConnection = GetRemoteSqlConnection
 
            Conn.Open()
            'Hier irgendwelche DB-Operationen
            Conn.Close()
 
        Catch ex As Exception
 
        End Try
 
    End Function
 
    Public Function GetRemoteSqlConnection() As SqlConnection
 
        Dim RemoteConn As SqlConnection = Nothing
        Dim ConnStringBuilder As New SqlConnectionStringBuilder
 
        Try
 
            If Settings.WindowsAuthentication = True Then
 
                ConnStringBuilder("Integrated Security") = "yes"
 
            Else
 
                ConnStringBuilder("Integrated Security") = "no"
                ConnStringBuilder.Password = Decrypt(Settings.Password, Key)
                ConnStringBuilder.UserID = Settings.UserId
 
            End If
 
            ConnStringBuilder("Data Source") = Settings.Server
            ConnStringBuilder("Initial Catalog") = Settings.Database
            ConnStringBuilder("Connect Timeout") = Settings.ConnectionTimeout
 
            RemoteConn = New SqlConnection(ConnStringBuilder.ConnectionString)
 
            Return RemoteConn
 
        Catch ex As Exception
 
            Throw New Exception("Fehler bei GetRemoteSqlConnection", ex)
 
        End Try
 
    End Function