wie meinst du das genau? so??
mDatum = tfDatum.Text
Set snabfrage = db.OpenRecordset("SELECT tbAufEin.Auftragsnummer,
tbAufEin.Auftragsdatum, tbAufEin.Auftragswert,
tbAufEin.gewünschter_Liefertermin, tbHaendler.Haendler FROM tbAufEin INNER
JOIN tbHaendler ON tbAufEin.haendlernummer = tbHaendler.haendlerNr Where
tbAufEin.Auftragsdatum