Dim vFrom As Variant
Dim vTo As Variant
Dim sSQL As String
 
' Heute (Systemdatum)
vFrom = Now
 
' Heute + 4 Tage
vTo = DateAdd("d", 4, vFrom)
 
' SQL-Abfrage
sSQL = "SELECT * FROM Kunden WHERE GebDatum " & _
  "BETWEEN #" & Format$(vFrom, "m-d-yy") & "# " & _
  "AND #" & Format$(vTo, "m-d-yy") & "#"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de