Public Function DatumFormatieren(ByVal Datum As String) As String
   DatumFormatieren = _
    "#" & Mid$(Datum, 4, 2) & _
    "/" & Left$(Datum, 2) & _
    "/" & Right$(Datum, 2) & "#"
End Function
 
 
Private Sub Form_Load()
 Set Db = OpenDatabase(App.Path & "\Adressbuch.mdb")
  Datum = DatumFormatieren(Date)
    SQL = "SELECT * FROM Notizen" & _
                " WHERE Datum = " & Datum
    Set Rs = Db.OpenRecordset(SQL)
    Do While Not Rs.EOF
        MsgBox Rs!Datum & " " & Rs!Notiz, , "Ihre heutigen Termine!"
        Rs.MoveNext
    Loop
    Set Rs = Nothing
End Sub