chech the help files on recordset (Dao) method addnew
the basics are
dim rs As DAO.Recordset
set rs = currentdb.openrecordset("<tablename>")
!<fieldname1> = <value1>
!<fieldnamex> = <valuex>
or you can use a append query that looks like
INSERT INTO <tablename>(<fieldname1>,...,<fieldnamex>)
(the select part can be a full select query ie select ... from ... where)
Definition of a Beginner, Someone who doesn't know the rules.
Definition of an Expert, Someone who knows when to ignore the rules.