Set db = New ADODB.Connection
    strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
             Datei
 
    db.Open strdb
 
    Set rst = New ADODB.Recordset
    rst.CursorType = adOpenStatic
    rst.LockType = adLockOptimistic
 
    dsTabelle = "Adressen"
    rst.Open "SELECT * FROM " & dsTabelle & " WHERE nr = " & ClickValue, db
 
    Do While Not rst.EOF
 
            If Len(rst!Ansprechpartner) > 0 Then
               ANSPRNR = rst!Ansprechpartner
               Call Ansprechpartner_FullLoad
            Else
               Kunden_hinzufuegen_update.xpCombo6.Text = ""
            End If
            [...]
        --> rst.MoveNext
    Loop
 
 
    rst.Close
    db.Close