For Each ff21 In ff.Tables
If ff21.Type = "TABLE" Then
For Each dr1 In ff21.Columns
MsgBox dr1.Name & " 123 " & dr1.DefinedSize & " 456 " & dr1.Type
NEXT
For Each ff21 In ff.Tables
If ff21.Type = "TABLE" Then
For Each dr1 In ff21.Columns
MsgBox dr1.Name & " 123 " & dr1.DefinedSize & " 456 " & dr1.Type
NEXT