Dim rst as adodb.recordset
Dim StartDat as String
dim EndDat as String
dim StartDBDat as String
Dim EndDBDat as String
StartDat = "09.09.2002"
EndDat = "10.09.2002"
StartDBDat = "#09/09/2002#"
EndDBDat="#09/10/2002#"
Set rst = new adodb.recordset
with rst
        .ActiveConnection = cnnIMC
        .Source = "SELECT * from TABNAME where Datum >=" & StartDBDat & " AND_
                        Datum <=" & EndDBDat
        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockBatchOptimistic
        .Open
end with
rst.moveFirst
rst.Find "Datum =#09/09/2002#"
debug.print rst.fields("Datum").value                'ist OK, es kommt 
' 09.09.2002
rst.moveFirst
rst.Find "Datum =#09/10/2002#"
debug.print rst.fields("Datum".value                'es kommt 09.10.2002