Dim conConfig As New Connection
Dim rsConfig As New Recordset
Dim sqlConfig As String
Dim Config As String

 
    With conSQLKunden
        .Provider = "SQLOLEDB.1"
        .Properties("Persist Security Info").Value = False
        .Properties("User ID").Value = glbSQlBenutzername
        .Properties("Password").Value = glbSQLPasswort
        .Properties("Initial Catalog").Value = glbSQLDatenbank
        .Properties("Data Source").Value = glbSQLServer
        .Open
    End With
 
    sqlSQLKunden = "select * FROM good.dbo.KHKAdressen KHKAdressen," & _
      "good.dbo.KHKKontokorrent KHKKontokorrent, good.dbo.KHKAnsprechpartner" & _
      "KHKAnsprechpartner " & _
        " Where KHKKontokorrent.Adresse = KHKAdressen.Adresse AND " & _
        "KHKAdressen.Adresse = KHKAnsprechpartner.Adresse " & _
        " and KHKKontokorrent.ktoart = 'D' " & _
        " order by kto "
    rsSQLKunden.LockType = adLockOptimistic
    rsSQLKunden.CursorLocation = adUseClient
    rsSQLKunden.Open sqlSQLKunden, conSQLKunden