database login always prompt

this is my code which works perfectly fine,but when i always click the print button,database login always prompt:

        Dim cryRpt As New ReportDocument

        Dim crParameterFieldDefinitions As ParameterFieldDefinitions

        Dim crParameterFieldDefinition As ParameterFieldDefinition

        Dim crParameterValues As New ParameterValues

        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        Dim conn As New SqlConnection(ConnectString())

        Dim cmd As New SqlCommand

        Dim mydatatable As New DataTable

        cryRpt.Load("C:\Users\Frontliner0102\Desktop\newRSVSYSTEM\ReservationSys\ReservationSys\ReservationSys\Reports\orderrpt.rpt")

        If conn.State = ConnectionState.Closed Then

            conn.Open()

        End If

        cmd.Connection = conn

        cmd.CommandText = "select folioid from foodordertbl where folioid=" + folioid

        Dim lad As SqlDataReader = cmd.ExecuteReader()

        mydatatable.Load(lad)

        DataGridView1.DataSource = mydatatable

        lad.Close()

        crParameterDiscreteValue.Value = folioid

        crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields

        crParameterFieldDefinition = crParameterFieldDefinitions.Item("folioid")

        crParameterValues = crParameterFieldDefinition.CurrentValues

        crParameterValues.Clear()

        crParameterValues.Add(crParameterDiscreteValue)

        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        CrystalReportViewer1.ReportSource = cryRpt

        CrystalReportViewer1.Refresh()