Updated code for crystal report problem......

Imports CrystalDecisions.CrystalReports
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared




'Assign the datasource and set the properties for Report viewer

Dim rptDocument As New

CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDocument.Load(strReportPath)
Dim ConInfo As New CrystalDecisions.Shared.TableLogOnInfo
ConInfo.ConnectionInfo.UserID = UID
ConInfo.ConnectionInfo.Password = UPwd
ConInfo.ConnectionInfo.ServerName = SQLSrvName
ConInfo.ConnectionInfo.DatabaseName = Databasename
For IntCounter = 0 To rptDocument.Database.Tables.Count - 1
rptDocument.Database.Tables(IntCounter).ApplyLogOnInfo(ConInfo)
Next
rptDocument.SetDataSource(DS.Tables(0))