my error is like this

Logon failed.
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

Exception Details: CrystalDecisions.CrystalReports.Engine.LogOnExcept ion: Logon failed.

Source Error:

An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.

Stack Trace:

Code:
[LogOnException: Logon failed.]
   .I(String , EngineExceptionErrorID )
   .D(Int16 , Int32 )
   .C(Int16 )
   CrystalDecisions.CrystalReports.Engine.FormatEngine.GetPage(PageRequestContext reqContext)
   CrystalDecisions.ReportSource.LocalReportSourceBase.GetPage(PageRequestContext pageReqContext)
   CrystalDecisions.Web.ReportAgent.u(Boolean n)
   CrystalDecisions.Web.CrystalReportViewer.OnPreRender(EventArgs e)
   System.Web.UI.Control.PreRenderRecursiveInternal()
   System.Web.UI.Control.PreRenderRecursiveInternal()
   System.Web.UI.Control.PreRenderRecursiveInternal()
   System.Web.UI.Page.ProcessRequestMain()

 and the code i am using is:

 Private crReportDoent As New CrystalReport1
    Private crTableLogOnInfo As New TableLogOnInfo
    Private crConnectionInfo As New ConnectionInfo
    Private crDatabase As CrystalDecisions.CrystalReports.Engine.Database
    Private crTables As CrystalDecisions.CrystalReports.Engine.Tables
    Private crTable As CrystalDecisions.CrystalReports.Engine.Table

 Dim conn As New SqlConnection("Persist Security Info=False;User ID=sa;Password=spirit2004;Initial Catalog=x;Data Source=x;")
        Dim cmd As New SqlCommand
        conn.Open()
        cmd.CommandText = "select cd.transactionsource,ad.transactiondatetime,cd.transactionmajorstatus,cd.transactionpoint,ad.userid,ad.remarks,ad.receipt_no from"
        cmd.CommandText += " cardpointtransaction cd,addpointtransaction ad where ad.cardid=cd.cardid and ad.receipt_no=substring(cd.transactionid,10,11) and ad.transactiondatetime between ('" & Session("datefrom") & "') and ('" & Session("dateto") & "')"
        cmd.Connection = conn
        Dim adp As New SqlDataAdapter(cmd)
        Dim ds As New DataSet
        adp.Fill(ds, "cardpointtransaction")
        crConnectionInfo.ServerName = "MYSOMASSQL01"
        crConnectionInfo.DatabaseName = "SonyStylePointDB"
        crConnectionInfo.UserID = "sa"
        crConnectionInfo.Password = "spirit2004"
        crDatabase = crReportDoent.Database
        crTables = crDatabase.Tables
        For Each crTable As CrystalDecisions.CrystalReports.Engine.Table In crTables
            crTableLogOnInfo = crTable.LogOnInfo
            crTableLogOnInfo.ConnectionInfo = crConnectionInfo
            crTable.ApplyLogOnInfo(crTableLogOnInfo)
            'crTable.Location = "MYSOMASSQL01.dbo.ta"
        Next
        crReportDoent.SetDatabaseLogon("sa", "spirit2004")
        crReportDoent.SetDataSource(ds)
        CrystalReportViewer1.ReportSource = crReportDoent
        CrystalReportViewer1.DataBind()
        CrystalReportViewer1.EnableDrillDown = False
        CrystalReportViewer1.DisplayToolbar = False
        CrystalReportViewer1.Visible = True
        CrystalReportViewer1.DisplayGroupTree = False
        CrystalReportViewer1.RefreshReport()
i am not able to get the report i am head banging on this error since 4 days i am not able to get solution any suggestions or any solution please let me know


thanks