ใช้ DAO หรือ ADO ในการบันทึกข้อมูลได้ครับ เช่น
DAO:
'----------------Code Start----------------
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("ชื่อตารางเป้าหมาย", dbOpenDynaset)
    '---------------เพิ่มเรคคอร์ดใหม่--------------
        'rs.Addnew
        'rs!ชื่อฟิลด์เป้าหมาย = "ค่าต่างๆที่ต้องการใส่ในฟิลด์เป้าหมาย Data Type ต้องเป็นชนิดเดียวกัน"
        'rs.Update
    '-----------------------------------------
    rs.Close: Set rs = Nothing
    Set db = Nothing
'-----------------Code End-----------------