ដំបូង​យើង​ត្រូវមាន​ table មួយ​គឺ products ដែលក្នុងនោះមាន Fields ដូចជា៖

• ProductID: AutoNumber
• ProductName: Text
• Qty: Number (integer)
• UnitPrice: Currency

និង បង្កើត Form មួយសម្រាប់បញ្ចូលព័ត៌មានផលិតផលដូចខាងក្រោម៖

ខាងក្រោម​ជា​កូដ​សម្រាប់ Add នូវ​ព័ត៌មាន​ផលិតផល​ថ្មីដោយប្រើ DAO៖

​​​​​   ​  Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Products")
    rs.AddNew
    rs!Productname = Textpname
    rs!Qty = TextQty
    rs!UnitPrice = Textunitprice
    rs.Update

ទាញយក Source Code