ลองแบบผมดูไมครับ?
Dim Rpt = New CRTypeService
dim ad as OleDbDataAdapter
sql = "select * from EntryProto where Cdate Between '#" & DTpFdate.value & "#' and '#" & DTpEdate.value & "#'"
ad = New OleDbDataAdapter(Sql, conn)
dim ds as New DataSet
ad.Fill(ds, "EntryProto")
ad = New OleDbDataAdapter("select * from Groupdata", conn)
ad.Fill(ds, "Groupdata")
ad = New OleDbDataAdapter("select * from Customer", conn)
ad.Fill(ds, "Customer")
ad = New OleDbDataAdapter("select * from Product", conn)
ad.Fill(ds, "Product")
Rpt.SetDataSource(ds)
FrmRPT.Show()
FrmRPT.CrystalReportViewer1.ReportSource = Rpt