Ayuda Access

[PiquioII]

private sub cmdejecutar_click()

Dim servicio As String
Dim fecha1 As Date
Dim fecha2 As Date



servicio = Me.Cuadro_combinado14.Value
fecha1 = Me.Fecha_Inicio.Value
fecha2 = Me.Fecha_Final.Value

Me.Total_Hora_Normal.Value = Nz(DSum("Horas", "consulta1", "Nombre='" & servicio & "' AND fecha > #" & Format(fecha1, "mm/dd/yyyy") & " # and Fecha < # " & Format(fecha2, "mm/dd/yyyy") & "# "), 0)

end sub


Y esta es la sql (consulta1):

SELECT Sum([Personal-Obra].Horas) AS horas
FROM Obras INNER JOIN [Personal-Obra] ON Obras.IdObra=[Personal-Obra].Obra;