Hope it will solve sumit sir's problem.........

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


in the above code declare uid,upwd,sqlsrvname,databasename as global
variables and then pass the values.