adodb.command, adodb.parameter, date

From: guy rulkin (rulkin.g_at_visualconcept.be)
Date: 12/30/04 

Date: Thu, 30 Dec 2004 15:27:30 +0100

when i try to select some record in a table with this code, it return EOF.
But the table containt realy one record with the date i pass as parameter
Any Idea?

Dim Conn As New ADODB.Connection, RS As New ADODB.Recordset
Dim Com As New ADODB.Command

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=j:\data\vc21\arg.MDB", "admin"

ComAdd.CommandText = "select * from tablewhere [Date]=?"
ComAdd.ActiveConnection = Conn
ComAdd.Parameters.Append Com.CreateParameter("DatePrixRevient", adDate,
adParamInput,,date())
RS.Open ComAdd, , adOpenKeyset, adLockPessimistic
if rs.eof then 'always Eof= true
....
rs.close
conn.close