Data report Problem

[shakti5385]

I am using five data report in my project Structure of all the report are same but their image and font and some default field are different.
When I running them into my project there is need of write them five time into the project……but if there field structure are same then why we write them five time.
Any possibility that if we write them one time and use it accordingly to related
Report

Any idea..........................

my coding not working.................

If ComCollege.Text = "GION" Then
Call Test("Report_Receipt")
End If
 
If ComCollege.Text = "UIPPS" Then
Call Test("Report_Uiipp_Receipt")
End If
 
If ComCollege.Text = "AION" Then
Call Test("Repost_Arawali_Receipt")
End If
 
 
 
 
Private Sub Test(Repo As String)
On Error GoTo ErrorTrap
 
Dim FEE
If RECEIPT1 = 0 Then
MsgBox "Hostel Receipt Not Possible" + Chr(13) + "1)May Be Record Not Saved By You!" + Chr(13) + "2)May Be Hostel Fee Not Deposited!", vbInformation, "First Save The Record..."
Exit Sub
End If
TSQL = ""
TSQL = "SELECT * FROM RECEIPT WHERE COLLEGE='" & ComCollege.Text & "' AND CLASS='" & ComClass.Text & "' AND E_NO='" & TXTSE_NO.Text & "' AND R_NO=" & RECEIPT1 & ""
Set RTMP = Get_Special_Record_Set(TSQL)
If RTMP.RecordCount = 0 Then
MsgBox "Record Not Found", vbInformation, "Incorect Information..."
Exit Sub
End If
FEE = "HOSTEL FEE"
 
With Repo
 
    Set .DataSource = Nothing
   Set .DataSource = RTMP.DataSource
 
 
While Not RTMP.EOF
With Repo.Sections("Section1").Controls
    
    .Item("txtDATE").DataMember = ""
    .Item("txtDATE").DataField = RTMP.Fields("DATE").Name
    
    .Item("txtSNO").DataMember = ""
    .Item("txtSNO").DataField = RTMP.Fields("R_NO").Name
   
    .Item("txtNAME").DataMember = ""
    .Item("txtNAME").DataField = RTMP.Fields("NAME").Name
    
    .Item("txtBATCH").DataMember = ""
    .Item("txtBATCH").DataField = RTMP.Fields("BATCH").Name
    
    .Item("txtCLASS").DataMember = ""
    .Item("txtCLASS").DataField = RTMP.Fields("CLASS").Name
    
    .Item("txtAMOUNT").DataMember = ""
    .Item("txtAMOUNT").DataField = RTMP.Fields("HOSTAL").Name
    
 
    RTMP.MoveNext
End With
Wend
 
Repo.Refresh
 
Repo.Show
 
RECEIPT1 = 0
 
ErrorTrap:
If Err.Number <> 0 Then
   MsgBox "Error (" & Err.Number & "): " & Err.Description, vbCritical, "Error"
End If
End Sub
 
 
If ComCollege.Text = "SEION" Then
Call Test("Report_Shrinath_Receipt")
End If
 
If ComCollege.Text = "MBNC" Then
Call Test("Report_Mass_Receipt")
End If

help.............