Dim MyCommand As New SqlClient.SqlCommand
MyCommand.Connection = myConnection
MyCommand.CommandText = "select OrderID,supplierID,supplierName,supplierOrder from Order INNER JOIN Supplier
ON Order .supplierID= Supplier .supplierID where OrderID= '%" & Text1.Text & "%' "
MyCommand.CommandType = CommandType.Text
Dim MyDA As New SqlClient.SqlDataAdapter
MyDA.SelectCommand = MyCommand
Dim myDS As New DataSet
MyDA.Fill(myDS, "MyCommand")
Rpt.SetDataSource(myDS)
Rpt.SetDatabaseLogon("sa", " ", "rx", "orderdb")
CrystalReportViewer1.ReportSource = Rpt
CrystalReportViewer1.RefreshReport()