Private Sub OpenADPConnection(lngConnect As Long)
 
    Dim strCatalog As String 
    Dim strServer As String 
    Dim strUser As String 
    Dim strPW As String  
 
    Dim strCONNECTION_STRING As String
 
    Select Case lngConnect
        Case 0
            strCatalog = "xxx"
            strServer = "yyy"
            strUser = "user"
            strPW = "123"
        Case 1
            strCatalog = "ccc"
            strServer = "www"
            strUser = "Developer"
            strPW = "000"
    End Select
 
    strCONNECTION_STRING = _
          "Provider=SQLOLEDB;Data Source=" & _
          strServer & ";Initial Catalog=" & strCatalog & ";"
 
    CurrentProject.OpenConnection strCONNECTION_STRING, strUser, strPW
 
    If Not CurrentProject.IsConnected Then
        MsgBox "Es konnte keine Verbindung hergestellt werden!"
    Else
        Call MsgBox("Die Datenbankverbindung wurde geändert !", vbInformation, _
          "geänderte Datenbank")
    End If
 
End Sub