テーブルのフィールドリストの取得

Public Function t_main_ColName()
  Dim cat As New ADOX.Catalog
  Dim tb As ADOX.Table
  Dim col As ADOX.Column
  Dim valFldName As Variant

  cat.ActiveConnection = CurrentProject.Connection
  Set tb = cat.Tables![テーブル1]
  For Each col In tb.Columns
    valFldName = valFldName + col.Name + ";"
  Next col
  t_main_ColName = valFldName
End Function