After creating all the DIM statements and setting the statement to the correct field, I type:
DoCmd.RunSQL ("INSERT INTO tableA (Field1,Field2) VALUES (""" & iField1 & """),(""" & iField1 & """)")
DoCmd.RunSQL ("INSERT INTO tableB (Field3,Field4) VALUES (""" & iField3 & """),(""" & iField4 &...