есть форма по нажанию кнопки добавляю Дверь.

DoCmd.RunSQL "insert into тЗаказаныеДвери (прЗаказ, прТипДвери, прПокраски, [прНаличника], прСтекло) values (" + CStr([Forms]![фФормированиеЗаказа]![идЗаказ]) + ",1,1,1,1)"

поля, которые начинаются на "пр" - данные из таблиц-справочников.

после того как поигрался со справочниками, там нестало записей с ид=1, и есстесно аксесс ругается. вопрос как добавлять запись?
решил таким способом, но может есть красивше? =)

Set db = CurrentDb
Set rst = db.OpenRecordset("тЗаказаныеДвери")
rst.AddNew
rst!прЗаказ = [Forms]![фФормированиеЗаказа]![идЗаказ]
Set rstZ = db.OpenRecordset("спТипДвери")
rst!прТипДвери = rstZ.Fields(0)
Set rstZ = db.OpenRecordset("спПокраскаДверь")
rst!прПокраски = rstZ.Fields(0)
Set rstZ = db.OpenRecordset("спНаличник")
rst!прНаличника = rstZ.Fields(0)
Set rstZ = db.OpenRecordset("спСтоимостьСтеклаДверь")
rst!прСтекло = rstZ.Fields(0)
rst.Update