Dim CrRep As New MiReporte CrystalReportViewer1.ReportSource = CrRep CrRep.SetDatabaseLogon("user", "password")