Hallo,
datum = "10.03.2004"
datum = CDate(datum)RS.Open "SELECT t_besucher.id, t_besucher.besucherip, t_besucher.besuchername, t_besucher.datum, t_besucher.uhrzeit FROM t_besucher WHERE (((t_besucher.datum)= "#" & Format(datum, "m-d-yy") & "#" )) ORDER BY t_besucher.id DESC; ", Conn
Hier sind zwei " zuviel, oder es fehlt einmal (" &) und einmal (& ").
SQLString = "SELECT t_besucher.id, t_besucher.besucherip, t_besucher.besuchername, t_besucher.datum, t_besucher.uhrzeit FROM t_besucher WHERE (((t_besucher.datum)= #" & Format(datum, "m-d-yy") & "# )) ORDER BY t_besucher.id DESC; "
MsgBox (SQLString) 'Das ist zum Prüfen, ob der SQL-String korrekt ist
RS.Open SQLString, Conn
viele Grüße
Axel
PS: Bekommt Ihr eigentlich nirgends mehr gesagt, wie man in einem Quellcode sinnvoll mit Testausgaben arbeitet, um Fehler zu finden?