Dim FrmPr As New prent
Dim Sql1 As String = "Select * from hagz1 where idtet like " & txtid.Text.Trim & ""
Dim MyDs2 As New DataSet
Dim DAdp2 As New OleDbDataAdapter(Sql1, con)
MyDs2.Clear()
DAdp2.Fill(MyDs2, "hagz1")
Dim rpt As New hagz
rpt.Load()
rpt.SetDataSource(MyDs2.Tables("hagz1"))
FrmPr.CrystalReportViewer1.ReportSource = rpt
FrmPr.CrystalReportViewer1.ShowGroupTreeButton = False
FrmPr.CrystalReportViewer1.RightToLeft = Windows.Forms.RightToLeft.Yes
FrmPr.CrystalReportViewer1.Zoom(90%)
FrmPr.CrystalReportViewer1.Refresh()
FrmPr.CrystalReportViewer1.Show()
FrmPr.ShowDialog()
DAdp2.Dispose()
con.Close()