01.
Dim
rpt
As
New
CrystalReport1
02.
03.
04.
Dim
log
As
CrystalDecisions.
Shared
.TableLogOnInfo
05.
log = rpt.Database.Tables(
"View_Out"
).LogOnInfo
06.
With
log.ConnectionInfo
07.
.UserID =
"sa"
08.
.Password =
"buddy716"
09.
End
With
10.
rpt.Database.Tables(
"View_Out"
).ApplyLogOnInfo(log)
11.
CrystalReportViewer1.ReportSource = rpt