’クエリーやテーブルのフィールド名、値を取得
For i = 1 To tb.Fields.Count Debug.Print tb.Fields(i - 1).Name & "====>" & tb.Fields(i - 1).Value Next