Try Dim cryRpt As New ReportDocument With cryRpt Dim str As String = "E:\barodra\baroda\WindowsApplication1\CrystalReport1.RPT" .Load(str) Dim query As String = "SELECT * FROM snc WHERE no='" & TextBox2.Text & "' " da = New OleDbDataAdapter(query, con) Dim cb As New OleDbCommandBuilder(da) Dim ds As New DataSet() da.Fill(ds) .SetDataSource(ds) CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Refresh() End With Catch ex As Exception Dim msg As String = ex.Message End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)