Error 3075 en tiempo de ejecución

aplique una macro desde vba en access en un botón el siguiente código

Private Sub Comando10_Click()
Dim Sql As String
Dim CadenaI, CadenaF As Date
CadenaI = Me.FInicio & " " & Me.HInicio
CadenaF = Me.FFin & " " & Me.Fin
If DCount("*", "Eventos", "SalonEventos = '" & Me.Salones & "' and FechaFin> #" & CadenaI & "#") = False Then
Sql = " INSERT INTO Eventos (FechaInicio,FechaFin,SalonEventos) VALUES (#" & CadenaI & "# , #" & CadenaF & "# , '" & Me.Salones & "');"
DoCmd.RunSQL Sql
Else
MsgBox "Este Salon esta ocupado para esta fecha"
Exit Sub
End If
End Sub

al ejecutarlo marca un error de sintaxis en la fecha en la expresión de la consulta si me pudieran ayudar les agradecería mucho