Access - ayuda con este codigo

estoy tratando de hacer una comparacion ente 2 fechas para que no sean iguales al momento de reservar la sala esto es un sistema de reserva de salas de conferencia

Private Sub fecha_BeforeUpdate(Cancel As Integer)
Dim F As Date
Dim A As Recordset
F = fecha
A.Edit
[Set A = CurrentDb.OpenRecordset("Reservacion", dbOpenDynaset)]cuando llega aqui me dice Arbumento no valido
CurrentDb.QueryDefs("ELIM_reservacion").Execute
A.Fields("Fecha") = F
A.Update
A.Close
CurrentDb.QueryDefs("Elim_tabla [reservacion consulta 1]").Execute
CurrentDb.QueryDefs("Anexa a tabla [reservacion consulta 1]").Execute

Yo tuve el mismo problema y lo solucione poniendo dao.recordset en la declaracion de variable, es decir:
Dim A as Dao.Recordset.
Saludos.