ایجاد کریستال ریپورت با استفاده از دستورات sql

[toopak]

سلام به همگی
من میخوام تو برنامه با استفاده از دستورات sql اطلاعات رو از دیتابیس بخونم تو در فرم کریستال ریپورت نمایش بدم
دوستان اگر میشه لطف کنید و کدها و کارهای مربوطه رو بهم بگید
از vs2010 و CrystalReport13 استفاده می کنم
با تشکر

[alicomputer]

Dim strconnection As String = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\DB\MainDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim oconnetion As New SqlClient.SqlConnection(strconnection)


If CheckBox1.Checked = True And ComboBox1.Text <> "" Then
Dim strsql As String = "select * from Tbl_Personel where name LIKE N'" & ComboBox1.Text.Trim() & "%'"
Dim oda As New SqlClient.SqlDataAdapter(strsql, strconnection)
Dim adataset As New DataSet
oda.Fill(adataset, "Tbl_Personel")
Dim rpt As New MorabiGharardad
rpt.Load("MorabiGharardad")
rpt.SetDataSource(adataset.Tables("Tbl_Personel"))
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()
End If