database logon failed

I have made a web application in this there is one crystal report ,for selecting data for crystal report i am passing a value from another web page using query string & and works fine using this value i want to search and print the data in crystal report but i got error that "DATABASE LOGON FAILED" i am posting for generating crystal report please give the solution thanx in advance
 

Dim did As Integer
        Dim d_id As String = Request.QueryString("did")
        
        'taking d_id value from another web page and convert it to integer
        did = Convert.ToInt32(d_id)
        MsgBox(did)
 
        Dim con As SqlConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True")
        con.Open()
        Dim cmd As SqlCommand = New SqlCommand("select * from t_donor where d_id=" & did & "", con)
        Dim ds As New DataSet()
        Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
        da.Fill(ds)
 
        Dim rptdocument As ReportDocument = New ReportDocument()
        rptdocument.Load(Server.MapPath("CrystalReport1.rpt"))
        rptdocument.SetDataSource(ds.Tables(0))
        CrystalReportViewer1.ReportSource = rptdocument