Slight Change needed to Print case

[Bob]

Help Please with the top case "Print Remark of Horse" I want RemarkID from
tblRemarksAdd to be printed as well
Thanx for any help with this.......Bob

Private Sub Report_Open(Cancel As Integer)
Dim strSQL As String
Select Case Me.OpenArgs
Case "Print Remark of Horse"
strSQL = "SELECT * FROM tblRemarks WHERE HorseID=" _
& Form_frmHorseInfo.tbHorseID.value & ";"
SrNo.ControlSource = "SrNo"
tbHorseName.Visible = True
SrNo.Visible = True
tbDate.Visible = True
lblDate.Visible = True

lblRemarkID.Visible = False
tbRemarkID.Visible = False
tbHorseName.ControlSource = "=[Forms]![frmHorseInfo]![tbNameToDisplay]"
tbRemarks.Visible = False
tbRemarkID.ControlSource = ""
tbHorseName.Visible = True
Case "Print Remarks"
strSQL = "Select * from tblRemarksAdd;"
tbHorseName.Visible = False
SrNo.Visible = False

'15 May 2006, Dnyanada Varude.
'Does not require.
tbDate.Visible = False
lblDate.Visible = False

lblRemarkID.Visible = True
tbRemarkID.Visible = True
tbRemarkID.ControlSource = "RemarkID"
tbRemarks.Visible = True
tbHorseName.Visible = False
End Select
Report_rptPrintRemarks.RecordSource = strSQL
End Sub