I know is a wildcard in the query. The problem is inside the vba:
Private Sub Aceptar_Click()
Dim cta As String, informe As String
Dim fecini As Long, fecfin As Long
cta = Replace(Me.cta.Value, "-", "")
fecini = DateDiff("d", #1/1/1900#, Me.fecini.Value) + 2
fecfin =...