sql

[ozelu]

Perdona que te vuelva a molestar jaj, he puesto el siguiente codigo:

Private Sub Option1_Click()
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 nticket,total,formapago from Caja where fecha=" & dia)
While Not rs.EOF
total = rs!total + total
rs.MoveNext
Wend
MsgBox (total)
End Sub

pero cuando carga el recordset, ¿porque me dice que rs.eof es true?, se sale del while y no entra nunca.