Access generic Report

[Avacha]

Please help!
I'd Like to Create generic Report,But I can not assigh
Data to Text box on "details Report"
This is code:
If [Forms]![FrmMenuReport]![FrmReport] = 1 Then
Me.LblReportName.Caption = "General Information"
Me.LblReportSort.Caption = "Sorted By Facility"
Me.lblReportPageHeaderSort.Caption = "SORTED BY FACILITY IN ASCENDING ORDER"
Me.LblFirst.Caption = "Report Date"
Me.Labelsec.Caption = "Last name"
Me.Labelt.Caption = "First name"
Me.LabelFour.Caption = "Book&Case Number"
Me.Labelsix.Caption = "FACILITY"
If RS.EOF And RS.BOF Then
MsgBox "No match for this selection.", vbOKOnly + vbInformation
Exit Sub
Else
Do Until RS.EOF
txtData.ControlSource = RS.Fields"Facility&quot
STRText = STRText & RS.Fields("Facility&quot
RS.MoveNext
Loop
txtData = strdate

ElseIf [Forms]![FrmMenuReport]![FrmReport] = 2 Then
Me.LblReportName.Caption = "Gender"
Me.LblReportSort.Caption = "Sorted By Gender"
Me.lblReportPageHeaderSort.Caption = "SORTED BY GENDER IN ASCENDING ORDER"
Me.LblFirst.Caption = "FACILITY"
Me.Labelsec.Caption = "Last name"
Me.Labelt.Caption = "First name"
Me.LabelFour.Caption = "Book&Case Number"
Me.Labelfif.Caption = "GENDER"
Me.Labelsix.Visible = False
If RS.EOF And RS.BOF Then
MsgBox "No match for this selection.", vbOKOnly + vbInformation
Exit Sub
Else
RS.MoveFirst
RS.MoveLast
'txtData.RowSource = RS.RecordCount - 1
'txtData.Height = RS.RecordCount - 1 * 3
'txtData.with = Len(RS.Fields("FACILITY&quot)
Do Until RS.EOF
'txtData.Caption = txtData.Caption & RS.Fields("FACILITY&quot & vbCrLf
'txtData.ControlSource = "tyttyuqwt" 'RS.Fields("FACILITY&quot
'txtData.Caption = "dgsfjsdgfjsd"
'STRText = STRText & RS.Fields("FACILITY&quot & vbCrLf
RS.MoveNext

Loop
'txtData.Caption = STRText
End If
End If
[COLOR==red]I tried txtData=txtData & RS.Fields"Facility&quot& vbcrlf
and txtdata=txtData & RS.Fields("Facility&quot
Evry time I get msg "You can't assigh a value to this object"[/color]