Public Sub LadeDaten(strSQL As String)
 
    With frmMain.sdgAdressliste
 
        .LockUpdate True
        .Clear
        .CreateClone = False
 
        Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic
 
        Set .Recordset = Rs
 
        .LockUpdate False
        .Refresh
 
        Set RsTemp = Cn.Execute("SELECT COUNT(ID) AS Anzahl FROM Adressen")
        lngMaxCount = RsTemp.Fields("Anzahl")
        If lngMaxCount > 0 And bMove1 Then .Row = 1 Else .Row = _
          lngDatensatzZeiger
 
    End With
 
End Sub

    With frmMain
 
        strSQL = "UPDATE Adressen SET " & _
        "Kategorie = '" & .cboKategorie.Text & "', " & _
        "Nummer = '" & .txtNummer.Text & "', " & _
        "Anrede = '" & .cboAnrede.Text & "', " & _
        "Titel = '" & .cboTitel.Text & "', " & _
        "WHERE ID = " & .lblID
 
        Cn.Execute strSQL
 
     End With