Ayuda

Ayuda
19 de Junio del 2004
Tengo este procedimiento y cuando intento ejecutarlo, me da error de formula alguien me podrĆ­a decir el por que Dim cadena1, cadena2 As String
'Cambia el puntero del mouse por un reloj de arena.
Private Sub ComVer_Click()
Screen.MousePointer = vbHourglass
Dim Primero As Date
Dim Ultimo As Date
Primero = DTPicker1
Ultimo = DTPicker2
cadena1 = DTPicker1
cadena2 = DTPicker2
Dia1 = Day(Primero)
Mes1 = Month(Primero)
AƱo1 = Year(Primero)
Dia2 = Day(Ultimo)
Mes2 = Month(Ultimo)
AƱo2 = Year(Ultimo)
Form4.Cr.Reset
Form4.Cr.DataFiles(0) = "C:PepitoPepito.mdb"
Form4.Cr.Formulas(0) = "Fecha1= """ & cadena1 & """"
Form4.Cr.Formulas(1) = "Fecha2= """ & cadena2 & """"
Form4.Cr.ReportFileName = "C:PepitoReport1.rpt"
Form4.cr.SelectionFormula={DatosClientes.FechaAlta}in date ("& AƱo1 &","&Mes1&","& Dia1 &")to date ("& AƱo2 &","& Mes2 & ","& Dia2 &")"
Form4.Cr.WindowState = 2
Form4.Cr.Destination = 0
Form4.Cr.Action = 1
' Vuelve al puntero normal.
Screen.MousePointer = vbDefault
End Sub