Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
put this code into your report button
Try
Dim Report As New YourReportName
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
ConInfo.ConnectionInfo.ServerName = YourServerName
ConInfo.ConnectionInfo.DatabaseName = YourDatabaseName
ConInfo.ConnectionInfo.UserID = "sa"
ConInfo.ConnectionInfo.Password = YourSaPassword
For intCounter As Integer = 0 To Report.Database.Tables.Count - 1
Report.Database.Tables(intCounter).ApplyLogOnInfo(ConInfo)
Next
Dim tmpViewer As New YourReportForm
tmpViewer.myCrystalReportViewer.ReportSource = Report
tmpViewer.ShowDialog()
Catch ex As Exception
MsgBox(Err.Description)
End Try