Visual Basic - Ayuda urgente

Hola a todos
estoy haciendo una consulta utilizando una conección ado con odbc el codigo es el siguiente

Set rs = New ADODB.Recordset
rs.Source = "select * from historia where fech = #26/06/2003#"
Set rs.ActiveConnection = db
rs.Open

pero me sale un error "Falta algun Operando "
como hago una busqueda por fechas
y como hago para que esa fecha este dentro de un rango
espero me haya explicado

de antemano gracias
Saludos

Intenta de esta forma:

Set cmd = New ADODB.Command
Set cmd.ActiveConnection = db

cmd.CommandText="SELECT * FROM Historia WHERE fech=?"
cmd.Parameters.Append cmd.CreateParameter("fech",adDate,8)

cmd.Parameters.Item("fech").Value = CDate("26/06/2003")

Set rs = cmd.Execute

Para una búsqueda en un rango:

cmd.CommandText="SELECT * FROM Historia WHERE fech>=? AND fech<=?"
cmd.Parameters.Append cmd.CreateParameter("fech1",adDate,8)
cmd.Parameters.Append cmd.CreateParameter("fech2",adDate,8)

cmd.Parameters.Item("fech1").Value = CDate("26/06/2003")
cmd.Parameters.Item("fech2").Value = CDate("26/06/2003")

Set rs = cmd.Execute