’クエリーやテーブルのフィールド名、値を取得

For i = 1 To tb.Fields.Count
    Debug.Print tb.Fields(i - 1).Name & "====>" & tb.Fields(i - 1).Value
Next