Private Sub EstCtaCont_Click()MousePointer = vbHourglassreporte = App.Path + "\reporte.rpt"titulo = "Estado de Cuenta del Contrato"Call verreporteMousePointer = vbDefaultEnd SubPrivate Sub EstCtaCont_Click()MousePointer = vbHourglassreporte = App.Path + "\Rep_Facturacion_SQL\Est_Cuenta.rpt"titulo = "Estado de Cuenta del Contrato"Call verreporteMousePointer = vbDefaultEnd Sub