I solved my problem with this....
Dim cr As New ReportDocument
cr.Load(Application.StartupPath & "\report.rpt")
Dim iTabla, iCampo As Integer
Dim sTabla, sCampo, item As String
For iTabla = 0 To cr.Database.Tables.Count - 1
sTabla = cr.Database.Tables(0).Name.ToString
For iCampo = 0 To cr.Database.Tables(iTabla).Fields.Count - 1
sCampo = cr.Database.Tables(0).Fields.Item(iCampo).Name.ToString
item = "{" & sTabla & "." & sCampo & "}"
'TextBox1.Text = cr.Database.Tables(0).Fields.Item(0).Name
ListBox1.Items.Add(item)
Next
Next
IP Logged
