Try
ad = New OleDbDataAdapter("SELECT * FROM inv_mat where invoice_no=" & Label1.Text, con1)
con1.open()
ad.Fill(ds, "inv_mat")
rpt1.SetDataSource(ds)
CrystalReportViewer1.ReportSource = rpt1
CrystalReportViewer1.Refresh()
catch
MsgBox(ex.Message)
Finally
con1.Close()
End Try