sql

[ozelu]

hola a todos, queria hacer una pregunta, tengo una BD llamada regalos.mdb y una tabla dentro que es Caja, quiero seleccionar los distintos totales de la tabla Caja que sean igual al dia que esta corriendo en el ordenador, es para hacer una Z diaria de la Caja, el codigo que pongo es el siguiente:

Dim base as database
Dim rs as recordset
dim dia as date
dia=date
set base=opendatabase("C:\regalos.mdb")
set rs=base.openrecordset("Select distinct total from Caja where fecha=dia")


y me aparece el siguiente error: "Pocos parametros. Se esperaba 1" y me marca la sentencia sql como error. Gracias de antemano.