[Resolvido]Referência Cruzada em Relatório

Essa é para topbr, ele conseguiu e estou tentando fazer aqui e não consigo.

Topbr, vc tem um código para colocar um relatório usando uma tabela de referencia cruzada em colunas tentei utilizar aqui e não está dando certo. Bom vou ser mais objetivo: o código é o seguinte:

DoCmd.Maximize
On Error GoTo Trata_Erro
Dim rs As DAO.Recordset, I As Integer, Ultimo As Integer
Dim Conta As Integer
Set rs = DBEngine(0)(0).OpenRecordset(Me.RecordSource, dbOpenSnapshot)
With rs
Conta = .Fields.Count - 1
'Este relatório só comporta 21 controles (0-20)
'por questão de espaço.
If Conta > 20 Then
Ultimo = 20
Else
Ultimo = Conta
End If

For I = 0 To Ultimo
Me("txt" & I).ControlSource = .Fields(I).Name
Me("txt" & I).Visible = True
Me("lbl" & I).Visible = True
Me("lbl" & I).Caption = .Fields(I).Name Next I - linha 20
End With

Sai:
'Libera recursos do sistema.
Set rs = Nothing
Exit Sub

Trata_Erro:
MsgBox "Erro nº " & Err.Number & "@@ " & Err.Description, _
vbExclamation, "Erro!"

Em primeiro lugar esta dando um erro na linha 20. E não estou conseguindo visualizar o relatório.

Abraço

Em vez de

For I = 0 To Ultimo
Me("txt" & I).ControlSource = .Fields(I).Name
Me("txt" & I).Visible = True
Me("lbl" & I).Visible = True
Me("lbl" & I).Caption = .Fields(I).Name Next I - linha 20

será

For I = 0 To Ultimo
Me("txt" & I).ControlSource = .Fields(I).Name
Me("txt" & I).Visible = True
Me("lbl" & I).Visible = True
Me("lbl" & I).Caption = .Fields(I).Name
Next I

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.