hola atodos  tengo un pequeño problema yo se que es un poco tonto pero no tengo de otra.

estoy hacidno un progra muy pequeno para agregar cosas en una base de datos Access

pero me dice que tengo una linea mala tengo anos desde que no programo y no me acuerdo que puede ser

miren mi codigo::

Dim Rstemp As Recordset
Dim DB As Database
Dim cad As String

Private Sub Command1_Click()
cad = ""
cad = "select * from Taxi where fecha = '" & Text1.Text & "'"
Set Rstemp = DB.OpenRecordset(cad) --> aqui me da el error y es Error '3464' Data type mismatch un criteria expression.

If (Rstemp.BOF And Rstemp.EOF) Then

Rstemp.AddNew
  Rstemp!fecha = Text1.Text
  Rstemp!pagodavid = Text2.Text
  Rstemp!pagojulio = Text3.Text
  Rstemp!gastos = Text4.Text
  Rstemp!factura = Text5.Text
  Rstemp!detalles = Text6.Text
Rstemp.Update
MsgBox ("Info Agregada satisfactoriamente")

Else

MsgBox ("ah! ocacionado un problema, quien sabe que puto codigo puso mal, asi que a breteiar")

End If


End Sub

Private Sub Form_Load()
Set DB = OpenDatabase(App.Path & "\bd1.mdb")
Set Rstemp = DB.OpenRecordset("Taxi")
End Sub

así a voz de pronto el tema del campo fecha deberías enviarlo si es datetime de esos entre almohadillas

#" & txt & "#