Dim ds As DataSet = New mydataset() 'mydataset为自定义数据集
mycommand = New SqlDataAdapter("select * from yourtable", myconnection) ‘查询语句应与数据集结构相一致
mycommand.Fill(ds, yourtablename)
Dim myreportdoc As New ReportDocument()
myreportdoc.Load(Application.StartupPath & "\tt.rpt")
CrystalReportViewer1.ReportSource = myreportdoc