Get column names

This will work

Set db = CurrentDb()Set rs1 = db.OpenRecordset("Table1")Dim fld As DAO.FieldFor Each fld In rs1.Fields    MsgBox (fld.Name)NextSet fld = Nothing

sql ms-access vba

Dim l As IntegerFor l = 0 To CurrentDb.TableDefs("tbl_Name").Fields.Count - 1  Debug.Print CurrentDb.TableDefs("tbl_Name").Fields(l).nameNext l

CodeHunter