Private Sub Form_Load()
Screen.MousePointer = vbHourglass
rs.Open " Select * from CLIENTES where FECHA_HORA between cdate('" & FECHA_DESDE & "') and cdate('" & FECHA_HASTA & "')", "db1"
Report.Database.SetDataSource rs
Report.Text20.SetText ("'" & FECHA_DESDE & "'")
Report.Text21.SetText ("'" & FECHA_HASTA & "'")
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
espero que no sea demasiado tarde..jejeje
