Visual Basic - como hacer una consulta por fecha

hola que tal
necesito ayuda urgente en lo siguiente
deseo hacer un consulta por fecha de presentación es decir hice una pantalla en vb donde le solicito al usuario el numero de area y la fecha de presentación...
mi base de datos esta hecha en access...
Quisiera saber como hago para mostrar en un data grid la informacion dependiendo de la informacion de entrada
utilice el siguiente codigo pero me manda error
Private Sub Cmmdbuscar_Click()
If Txtcarea.Text = "" Or MaskEdBoxFpresentacion.Text = "" Then
MsgBox "Debe ingresar la fecha y código de área"
Else
Dim buscar As Date
Dim buscar3 As Integer
buscar3 = Txtcarea.Text
buscar = MaskEdBoxFpresentacion.Text

'AdodcT_generales.RecordSource = "select * from T_Generales where FechaPresentacion = '" & buscar & "'"
AdodcT_generales.RecordSource = "select *from T_Generales where FechaPresentacion = '" & buscar & "' And area = " & buscar3
AdodcT_generales.Refresh
DataGridcxfpresentacion.ReBind
DataGridcxfpresentacion.Refresh
If AdodcT_generales.Recordset.EOF Then
MsgBox "No se ha realizado ninguna transacción con esta fecha, por favor verifique...", vbCritical, "¡Error!"
MaskEdBoxFpresentacion.Mask = ""
MaskEdBoxFpresentacion.Text = ""
MaskEdBoxFpresentacion.Mask = "##/##/####"
End If
End If
End Sub
le agradeceri muchisimo su ayuda

Podrias intentar cambiar el orden del mes y del día en tu formato, a veces lo pone con formato ingles (mm/dd/aaaa).

Revisando mejor, el problema es que debes cambiar la linea:

AdodcT_generales.RecordSource = "select *from T_Generales where FechaPresentacion = '" & buscar & "' And area = " & buscar3

por esta

AdodcT_generales.RecordSource = "select * from T_Generales where FechaPresentacion = #" & buscar & "# And area = " & buscar3

Recuerda que el origen de registros del AdodcT_generales debe ser 1-adCmdText u 8-adCmdUnknown.
Lo otro es poner esta linea antes de la que te indique:

AdodcT_generales.CommandType = adCmdText

Eso.
Espero te sirva