Crystal Reports subreport

Message

I use  two diffrent datasets for main and sub report. The coding I have done is as follows. I insert a subreport in main report, also define link parameters. My problem is that subreport shows nothing but report heading. I want both main and sub reports in same page.how do I bind subreport to main report through coding. I want report as follows for each student

studentID

semester   ontained  total 
                 marks     Marks

   1                75         100
   2                68         100

I have write query for above details as str2 filling dataset Ds1 for subreport

below this I want currunt semester's paper's detail like this

Details of Paper
----------------------

    Main Subject
    ---------------
          paper1
          paper2

    Compulsary subject
    -----------------------
          paper3
          paper4

This works properly in main report. shows data for details of paper

 Do anyone help me to solve my problem.

str1 = "SELECT distinct RM.*, SM.*, PM.* FROM Result_Master AS RM, Subject_Master AS SM, Pathyakram_Master AS PM " & _

" WHERE " & _

" (RM.course_code = " & Me.CmbCourse.SelectedValue & ") " & _

" AND RM.course_code = SM.course_code " & _

" AND (RM.mon_year_exam ='" & Me.CmbExamMon.Text.Trim & CmbExamYear.Text.Trim & "')" & _

" AND(RM.sem_year =" & Me.CmbExamSemYear.SelectedItem & ")" & _

" AND RM.sem_year = SM.sem_year" & _

" AND SM.paper_type =PM.pathyakram_code " & _

" ORDER BY rm.studid,rm.sem_year,pm.sr_no,Sm.paper_no"

str2 = "SELECT distinct RM.* FROM Result_Master AS RM " & _

" WHERE " & _

" (RM.course_code = " & Me.CmbCourse.SelectedValue & ") " & _

" ORDER BY rm.studid,rm.sem_year "

If RadGujarati.Checked Then

If RadFront.Checked Then

ds = GetDataSet(str)
'ds.WriteXmlSchema("e:\e2009\Examsep2008\DS_Marksheet.xsd")

pReport.Load("e:\e2009\ExamSep2008\Reports\RpTMarkSheetguj_credit_Front.rpt")

Else

ds = GetDataSet(str1)
pReport.Load("e:\e2009\ExamSep2008\Reports\RpTMarkSheetguj_credit_Back.rpt")

pReport.SetDataSource(ds)

Dim oConnection As SqlConnection = New SqlConnection(ConnStr)

Dim ds1 As New DataSet

Dim oCommand As New SqlCommand(str2, oConnection)

Dim oAdapter1 As New SqlDataAdapter(oCommand)

oAdapter1.Fill(ds1)
oConnection.Close()
'ds1 = GetDataSet(str2)

'ds.WriteXmlSchema("e:\e2009\Examsep2008\DS_Marksheet_Back.xsd")

'ds1.WriteXmlSchema("e:\e2009\Examsep2008\DS_SubMarksheet_Back.xsd")

'sReport.Item("e:\e2009\ExamSep2008\Reports\SubRpTMarkSheetguj_credit_Back.rpt").SetDataSource(ds1)

End If

ElseIf RadEnglish.Checked Then

If RadFront.Checked Then

ds = GetDataSet(str)
pReport.Load("e:\e2009\ExamSep2008\Reports\RpTMarkSheetEng_credit_Front.rpt")

Else

ds = GetDataSet(str1)
'ds1 = GetDataSet(str2)

pReport.Load("e:\e2009\ExamSep2008\Reports\RpTMarkSheetEng_credit_Back.rpt")

End If

'ElseIf RadHindi.Checked Then

'pReport.Load("e:\e2009\ExamSep2008\Reports\RpTMarkSheetHin.rpt")

End If

'pReport.Subreports.Item("sReport").SetDataSource(ds1)

orpt.ShowMe(pReport, ds, "", "")