datareport, не могу обратиться controls в datareport

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
.Provider = "Microsoft.Jet.OLEDB.4.0;"
.ConnectionString = "Data Source=" & App.path & "\bagrut.mdb"
.Open
End With

With rs
.ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockReadOnly
.Source = " select * from 16106Without"
.Open
End With

Set DataReport2.DataSource = rs

[color=red]
Set DataReport2.Sections(1).Controls("Text1").DataField = rs.Fields(0)
Set DataReport2.Sections(1).Controls("Text2").DataField = rs.Fields(1)
Set DataReport2.Sections(1).Controls("Text3").DataField = rs.Fields(2)
[/color]
DataReport2.Show
Set rs = Nothing
Set cn = Nothing