01.Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
02. Dim cryRpt As ReportDocument = New ReportDocument
03. cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
04. Dim crtableLogoninfos As TableLogOnInfos = New TableLogOnInfos
05. Dim crtableLogoninfo As TableLogOnInfo = New TableLogOnInfo
06. Dim crConnectionInfo As ConnectionInfo = New ConnectionInfo
07. Dim CrTables As Tables
08. crConnectionInfo.ServerName = "YOUR SERVERNAME"
09. crConnectionInfo.DatabaseName = "DATABASE NAME"
10. crConnectionInfo.UserID = "USERID"
11. crConnectionInfo.Password = "PASSWORD"
12. CrTables = cryRpt.Database.Tables
13. For Each CrTable As CrystalDecisions.CrystalReports.Engine.Table In CrTables
14. crtableLogoninfo = CrTable.LogOnInfo
15. crtableLogoninfo.ConnectionInfo = crConnectionInfo
16. CrTable.ApplyLogOnInfo(crtableLogoninfo)
17. Next
18. cryRpt.Refresh
19. cryRpt.PrintToPrinter(2, true, 1, 2)
20.End Sub
