Sub Report in VS2010

Dear All,
I have to display 2 reports in VS2010 as one. So what I am using is sub-report. but the thing is I don't know how to display data from my db in the sub report. please see code below.

Code:

---

Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
                        rptdoc = New CrystalReport2 'main report
                        Dim rptdoc2 As CrystalDecisions.CrystalReports.Engine.ReportDocument
                        rptdoc2 = New CrystalReport3 'sub report

                        Dim localid As TextObject = rptdoc.ReportDefinition.ReportObjects("Text6")
                        localid.Text = DataGridView1.Item(0, i).Value.ToString 'textbox on main report
                        Dim localid2 As TextObject = rptdoc2.ReportDefinition.ReportObjects("Text13")
                        localid2.Text = DataGridView1.Item(0, i).Value.ToString 'textbox on sub report
                        Dim barcode As TextObject = rptdoc.ReportDefinition.ReportObjects("Text8")
                        barcode.Text = "*" & DataGridView1.Item(0, i).Value.ToString & "*"
                        Dim date1 As TextObject = rptdoc.ReportDefinition.ReportObjects("Text5")
                        date1.Text = Date.Now.ToShortDateString
                        objdataset = New DataSet
                        sqldataAdapter = New SqlDataAdapter
                        sqldataAdapter.SelectCommand = New SqlCommand
                        sqldataAdapter.SelectCommand.Connection = objconnection
                        sqldataAdapter.SelectCommand.CommandText = "Select NameAddofAdd from [" & cagenumber & "] where LocalID='" & DataGridView1.Item(0, i).Value.ToString & "'"
                        objconnection.Open()
                        sqldataAdapter.Fill(objdataset, cagenumber)
                        objconnection.Close()
                        Dim namenaddress As TextObject = rptdoc.ReportDefinition.ReportObjects("Text10")
                        namenaddress.Text = objdataset.Tables(0).Rows(0).Item(0).ToString
                        Dim f As New ViewPS94
                        f.CrystalReportViewer1.ReportSource = rptdoc
                        f.Show()

---

the data to be displayed on the textbox for the sub report is not appearing. please advise.
thanks
ashley