Спасибо.
Но почему варант предложенный в этой статье не работает?
Dim myReport As New CrystalReport1
Dim myDataSet As New DataSet
SqlDataAdapter1.SelectCommand.Parameters("@CustomerID").Value = tbCustomerID.Text
SqlDataAdapter1.Fill(myDataSet, "Customers")
myReport.SetDataSource(myDataSet)
CrystalReportViewer1.ReportSource = myReport
данное сообщение получено с www.gotdotnet.ru
ссылка на оригинальное сообщение