Runtime Data Reports with Condition

i am using vb6.0 & trying to have Runtime Data Report.The Actual Format is:

Debit Amt Credit Amt -------Column Headers
400 -------Debit Entry
400 -------Credit Entry
Now, If u willCheck Both D & C Entries are Same So In my Database I Check Which Entry is it & Then Try TO Put the AMt but It Gives ME O/P as
Debit Amt Credit Amt -------Column Headers
400 400 -------Debit Entry
400 400 -------Credit Entry
My Code Goes Like THis

If rs(5) = "D" Then
DataReport1.Sections("VOUCHER_PRINT_Detail").Controls("Text1").DataFi = rs(4)
'DataReport1.Sections("VOUCHER_PRINT_Detail").Controls("Label14").Caption = ""
DataReport1.Refresh
ElseIf rs(5) = "C" Then
DataReport1.Sections("VOUCHER_PRINT_Detail").Controls("Label14").Caption = rs(4)
' DataReport1.Sections("VOUCHER_PRINT_Detail").Controls("Label13").Caption = ""
DataReport1.Refresh
End If

Where rs is the Recordset & Where label 13 & label 14 is for D & C Respectively. & their are two Different Rows in Database for Debit & Credit
Please Help Me