Dim rst As Recordset Set rst = Me.Recordset For Each fld In rst.Fields ' Print field names. MsgBox fld.Name Next