Dim rp As New ReportDocument()
Dim cr As New CrystalReport1()
Dim ds As New Dataset1()
Dim constr As String = "server=localhost;uid=sa;pwd=;database="
Dim text As String = "select colorid,color from zx0009"
Dim con As New SqlConnection(constr)
Dim ad As New SqlDataAdapter(text, con)
Dim ds1 As New Dataset1()
ad.Fill(ds1, "tb")
rp.Load("D:\mjp\print\CrystalReport2.rpt")
rp.SetDataSource(ds1)