Dim frp As New FrmView
Dim rp As New Cystalreport
Dim strDataReport As String = ""
Dim crtable As CrystalDecisions.CrystalReports.Engine.Table
Dim crTableLogonInto As CrystalDecisions.Shared.TableLogOnInfo
Dim cnConnInto As New CrystalDecisions.Shared.ConnectionInfo
With cnConnInto
cnConnInto.ServerName = "serverName"
cnConnInto.DatabaseName = "DataBase"
cnConnInto.UserID = "sa"
cnConnInto.Password = "1234"
End With
For Each crtable In rp.Database.Tables
crTableLogonInto = crtable.LogOnInfo
crTableLogonInto.ConnectionInfo = cnConnInto
crtable.ApplyLogOnInfo(crTableLogonInto)
frp.objrp = rp
frp.Show()
Next