Access - Agregar un registros con un boton

Hola. Tengo la siguiente consulta:
Tengo una tabla donde uno de los campos es la fecha. Luego en un formulario tengo un calendario. Lo que quiero hacer es que al hacer click en un dia del calendario busque el registro en la tabla que tenga esa fecha. En caso de no encontrarlo, agregue un nuevo registro en la tabla con la fecha que seleccioné en el calendario.

Alguien me puede ayudar con esto?

Desde ya muchas gracias!.

Private Sub Comando2_Click()

Dim veFecha As Long

veFecha = DCount("Fecha", "Tabla1", "Tabla1.Fecha = Forms![Formulario1]![FechaIngresada]")

If veFecha = 0 Then

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Tabla1 ( Fecha ) " & _
"SELECT [Forms]![Formulario1]![FechaIngresada] AS Expr1;"

DoCmd.SetWarnings True

ElseIf veFecha > 0 Then

MsgBox "La Fecha Ya Existe", vbCritical, "Duplicado"

End If

End Sub