Private Sub cmd_general_Click()
Dim DataRep as New DataReport1
Metodo DataRep
End Sub
Private Sub cmd_OtroBoton_Click()
Dim DataRep as New DataReport2
Metodo DataRep
End Sub
Private Sub cmd_yOtro_Click()
Dim DataRep as New Datareportotro
Metodo DataRep
End Sub
Private Sub Metodo(Byval DtaRpt As object)
If DtaRpt is Nothing Then exit Sub
Load DataEnvironment1
Load DtaRpt
DtaRpt.Show vbModal
Unload DtaRpt
Unload DataEnvironment1
End Sub