Dim SQL As String
 
SQL = "SELECT * FROM Adressen WHERE User = '" & User & "' AND " & _
  "Format$(Geburtstag, ""mmdd"") = " & Format$(Now, "mmdd") &  " ORDER BY Name"
 
Set dy = DB.OpenRecordset(SQL)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de