Dim msg As String
Dim Report As New ReportDocument
Report.Load(Application.StartupPath & "\CrystalReport2.rpt")
Dim ta As Table
Dim li As TableLogOnInfo
Dim ci As ConnectionInfo
Dim i As Integer
msg = ""
For Each ta In Report.Database.Tables
li = ta.LogOnInfo
ci = li.ConnectionInfo
For i = 0 To ci.Attributes.Collection.Count - 1
Dim j As Integer
Dim nvs2 As NameValuePairs2
nvs2 = CType(CType(ci.Attributes.Collection(i), NameValuePair2).Value, CrystalDecisions.Shared.DbConnectionAttributes).Collection
For j = 0 To nvs2.Count - 1
msg = msg & "DCA Attribute: " & CType(nvs2(j), CrystalDecisions.Shared.NameValuePair2).Name & " - "
msg = msg & CType(nvs2(j), CrystalDecisions.Shared.NameValuePair2).Value & Environment.NewLine
Next
msg = msg & Environment.NewLine
Else
msg = msg & CType(ci.Attributes.Collection(i), NameValuePair2).Name & " - "
msg = msg & CType(ci.Attributes.Collection(i), NameValuePair2).Value & Environment.NewLine
End If
Next
Next
MessageBox.Show(msg)
