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