VB Code:
Dim Rep As crystalDecisions.CrystalReports.Engine.ReportDocument
Rep = New rptTest
Dim tb As CrystalDecisions.CrystalReports.Engine.Table
Dim cn As New CrystalDecisions.Shared.ConnectionInfo
cn.ServerName = *******
cn.DatabaseName = *******
cn.UserID = ******
cn.Password = ********
Dim tblog As New CrystalDecisions.Shared.TableLogOnInfo
For Each tb In Rep.Database.Tables
tblog.ConnectionInfo = cn
tb.ApplyLogOnInfo(tblog)
Next
Dim strStream As New System.IO.BinaryReader(Rep.ExportToStream(CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat))
Response.ClearContent()
Response.ClearHeaders()
Response.ContentType = "application/pdf"
Response.BinaryWrite(strStream.ReadBytes(strStream.BaseStream.Length))
Response.Flush()
Response.Close()
strStream.Close()