Ganti Koneksi

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim cr As New CrystalReport1()

'ganti setdatabaselogon
Dim connectionInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
connectionInfo.DatabaseName = "ValuSalesS3Fake"
connectionInfo.UserID = "sa"
connectionInfo.Password = "12345"
connectionInfo.ServerName = "APC\SQL2K5"

For Each table As CrystalDecisions.CrystalReports.Engine.Table In cr.Database.Tables
Dim tableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = table.LogOnInfo
tableLogonInfo.ConnectionInfo = connectionInfo
table.ApplyLogOnInfo(tableLogonInfo)
Next

'isi parameter di sini

Me.CrystalReportViewer1.ReportSource = cr
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub