Crystal report always ask login when VB.NET extrated exe installed and run on client pc

See more:

VB

Crystal Report Always ask login when vb.net extrated exe installed and run on client pc. I used vb.net with access database.
The Code is given below . Please help to correct it.


Public Class barcode
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim stringFormula As String

CrystalReportViewer1.ReportSource = Application.StartupPath + "\CRbarcode1.rpt"
If CheckBox1.Checked = True Then
If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
stringFormula = "{Book.BookTitle} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Author} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.JointAuthors} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Subject} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Keyword} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Publisher} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.PublishingYear} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.SupplierName} Like '*" & txtSearch.Text.ToString() & "*'"

Else
stringFormula = ""
End If
Else
stringFormula = "{Book.EntryDate} >= #" & Me.DateTimePicker1.Value.ToShortDateString & "#"
stringFormula &= "And {Book.EntryDate} <= #" & Me.DateTimePicker2.Value.ToShortDateString & "#"
End If
CrystalReportViewer1.SelectionFormula = stringFormula
CrystalReportViewer1.Refresh()
CrystalReportViewer1.RefreshReport()
End Sub

What I have tried:

Crystal Report Always ask login when vb.net extrated exe installed and run on client pc
The Code is given below . Please help to correct it


Public Class barcode
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim stringFormula As String

CrystalReportViewer1.ReportSource = Application.StartupPath + "\CRbarcode1.rpt"
If CheckBox1.Checked = True Then
If Not String.IsNullOrEmpty(Me.txtSearch.Text) Then
stringFormula = "{Book.BookTitle} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Author} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.JointAuthors} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Subject} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Keyword} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.Publisher} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.PublishingYear} Like '*" & txtSearch.Text.ToString() & "*'"
stringFormula &= " Or {Book.SupplierName} Like '*" & txtSearch.Text.ToString() & "*'"

Else
stringFormula = ""
End If
Else
stringFormula = "{Book.EntryDate} >= #" & Me.DateTimePicker1.Value.ToShortDateString & "#"
stringFormula &= "And {Book.EntryDate} <= #" & Me.DateTimePicker2.Value.ToShortDateString & "#"
End If
CrystalReportViewer1.SelectionFormula = stringFormula
CrystalReportViewer1.Refresh()
CrystalReportViewer1.RefreshReport()
End Sub