how to create report using dataset?
I am trying with below code, its not giving me error but, when this code is executed, I dont see any records. But, When I run it at sql I see the record.
whats the other best way to solve this problem (accessing multiple tables to dataset and dataset to report)?

ALL SEVEN TABLES ARE ADDED TO DATASET ds.XSD
Dim conn As SqlConnection
Dim da1 As SqlDataAdapter
Dim da2 As SqlDataAdapter
Dim da3 As SqlDataAdapter
Dim da4 As SqlDataAdapter
Dim da5 As SqlDataAdapter
Dim da6 As SqlDataAdapter
Dim da7 As SqlDataAdapter
Dim connstr As String = "server=nt360dbs2;uid=sa;pwd=goblue2002;database=t co"
conn = New SqlConnection(connstr)
If conn.State = ConnectionState.Open Then conn.Open()
Dim ds As New DataSet

Dim qry1 As String = "Select * from claims where claims.ccanbr='" & txtccanbr.Text & "'"
da1 = New SqlDataAdapter(qry1, conn)
da1.Fill(ds, "claims")

Dim qry2 As String = "Select * from claimtextfailure where ccanbr='" & txtccanbr.Text & "'"
da2 = New SqlDataAdapter(qry2, conn)
da2.Fill(ds, "claimtextfailure")

Dim qry3 As String = "Select * from part360 where ccanbr='" & txtccanbr.Text & "'"
da3 = New SqlDataAdapter(qry3, conn)
da3.Fill(ds, "part360")

Dim qry4 As String = "Select * from claimtypecodes Inner Join Claims ON ClaimTypeCodes.[CCA Type]=Claims.CCAType where Claims.ccanbr='" & txtccanbr.Text & "'"
da4 = New SqlDataAdapter(qry4, conn)
da4.Fill(ds, "claimtypecodes")

Dim qry5 As String = "Select * from Inventorylist INNER JOIN Claims ON Claims.FPARTNOSPACE=InventoryList.PartNumber Where Claims.ccanbr='" & txtccanbr.Text & "'"
da5 = New SqlDataAdapter(qry5, conn)
da5.Fill(ds, "InventoryList")

Dim qry6 As String = "Select * from tLBRHR360 where ccanbr='" & txtccanbr.Text & "'"
da6 = New SqlDataAdapter(qry6, conn)
da6.Fill(ds, "tLBRHR360")


'Dim qry7 As String = "Select * from vendorinfo INNER JOIN InventoryList ON InventoryList.PrimaryVendor=VendorInfo.VendorNum"
'da7 = New SqlDataAdapter(qry7, conn)
'da7.Fill(ds, "vendorinfo")

crv.Visible = True
rpt.Database.Tables(0).SetDataSource(ds)
'rpt.SetDataSource(ds.Tables(0))
crv.ReportSource = rpt
conn.Close()