Public Function OpenDBConnection(ByVal mandant As String)
        Dim c As New configManager(Application.StartupPath & _
          "\settings.config") ' den pfad der datei nicht vergessen
        If Not c.Open() Then ' wichtig!!  
            MsgBox("Die Datei settings.conf wurde nicht gefunden")
            Exit Function
        End If
        Dim SQLServerString = "packet size=4096;Language=German;User" & _
          "ID=Benutzername;Password=unserPWD;data source=" & c.GetValue( _
          "sql_data").ToString & ";persist security info=False;Connect" & _
          "Timeout=3;initial catalog=" & c.GetValue( _
          "sql_catalog_praefix").ToString & mandant
        MsgBox(SQLServerString)
 
        'Deklaration der Connection
        Dim SQLDBC As New SqlConnection(SQLServerString)
        Try
            'Fenster soll beweglich bleiben, während der DB Abfrage
            Application.DoEvents()
            'Connection wird geöffnet
            SQLDBC.Open()
            'True wird zurückgegeben
            Return True
            SQLDBC.Close()
        Catch ex As Exception
            'Rückmeldung false
            Return False
        Finally
            SQLDBC.Close()
        End Try
    End Function

If (OpenDBConnection("001")) Then
            combobox.Items.Add("Swiss_001")
        End If