Visual Basic - URGENTE es por la fechas denuevo

El problema que me surge con esta consulta de fechas
es que al coger el campo fecha que es donde guardo los registros no se por que no lo acepta, debo de poner mal la sintasix pero no se donde muchas gracias a el jose por ayudarme en el and

Private Sub Buscafechas_Click()

Dim fecha, fecha1, fecha2 As Date

fecha2 = CDate("textfecha2.text")
fecha1 = CDate("Textfecha1.Text")

Datapartes1.recorset("fecha") = fecha
'es aqui donde me da el problema como cojo el dato del campo fecha para compararle con los dos text que luego introduzco?

If ("fecha" >= fecha1 And "fecha" <= fecha2) Then
DataGridfecha.Show
Else
MsgBox ("No hay partes entre estas fechas")
End If
End Sub

Si lo que quieres es tener en la variable fecha el valor que tienes en el recordset lo tienes que poner al revés y quitar las comilla en el if, si lo que haces es actualizar el recordset con el valor de la variable fecha (en este ejemplo de código no la tienes establecida a nada) mira a ver si es por que te falta una d en la palabra recordset en Datapartes1.recorset("fecha") = fecha y en este caso en el if iría if (Datapartes1.Recordset("fecha") >= ....., espero que te sirva