Public Sub przDAO()
    Set mdbHWPMail = OpenDatabase("kunden.mdb")
    Set tbHWPMail = mdbHWPMail.OpenRecordset("Kundenstamm")
    Set tbHWPMail2 = mdbHWPMail.OpenRecordset("Zusatzdaten zu Programm")
End Sub
 
Public Sub przKDListeFuellen()
    Dim mKDNr As String
    Set mdbzwischenabklage = OpenDatabase("zwischenablage.mdb")
    Set tbhwp = mdbzwischenabklage.OpenRecordset("hwp")
    mKDNr = ""
    frmMailVerteiler.lstKunde.Clear
    frmMailVerteiler.lstKdNr.Clear
    frmMailVerteiler.lstMail.Clear
    frmMailVerteiler.lstVersionen.Clear
    tbHWPMail2.MoveFirst
    Do Until tbHWPMail2.EOF
        mKDNr = tbHWPMail2!Primärschlüssel
        If Not tbHWPMail2!PW = "" Then
            If Not tbHWPMail2!PW = "nein" Then
                If Not tbHWPMail2!PW = "xx" Then
                    tbHWPMail.MoveFirst
                    Do Until mKDNr = tbHWPMail!Kundennummer
                        tbHWPMail.MoveNext
                    Loop
 
                    tbhwp.AddNew
                        tbhwp!Version = tbHWPMail2!PW
                        frmMailVerteiler.lstVersionen.AddItem (tbHWPMail2!PW)
                        tbhwp!KDNr = Left(mKDNr, 5)
                        frmMailVerteiler.lstKdNr.AddItem (Left(mKDNr, 5))
                        tbhwp!EMail = tbHWPMail![E-Mail]
                        frmMailVerteiler.lstMail.AddItem ("" & _
                          tbHWPMail![E-Mail])
                        tbhwp!Kunde = tbHWPMail![Name 1]
                        frmMailVerteiler.lstKunde.AddItem ("" & tbHWPMail![Name _
                          1])
                    tbhwp.Update
                End If
            End If
        End If
        tbHWPMail2.MoveNext
    Loop
End Sub