Private Sub Form_Load()
    '--------------- öffnet die Tabelle Kunden
    Set tabKu = db.OpenRecordset("tbl_Kunden")
    tabKu.Index = "primarykey"
    with frmKunde
      .Kunde_Nr = tabKu!Kunde_Nr
      .Kunde_Nachname = tabKu!Kunde_Nachname
      .Kunde_Ort = tabKu!Kunde_Ort
      .Kunde_umsatz = tabKu!Kunde_umsatz
    end with
End Sub

basicNessy