ที่ผมใช้อยู่นะสร้าง Cmd แล้วเขียน ที่ Event Cmd click

sub Cmd1_Click
'เพิ่มข้อมูลตารางที่1
Dim ADb As Database
Dim ASet As DAO.Recordset
Set ADb = DBEngine.Workspaces(0).Databases(0)
Set ASet = ADb.OpenRecordset("ชื่อตารางที่1",
DB_OPEN_DYNASET)
ASet.AddNew
ASet![ชื่อฟิลด์ที่จะเก็บข้อมูล] = Text1.Value
ASet.Update
ASet.Close
ADb.Close
'เพิ่มข้อมูลตารางที่2
Dim BDb As Database
Dim BSet As DAO.Recordset
Set BDb = DBEngine.Workspaces(0).Databases(0)
Set BSet = ADb.OpenRecordset("ชื่อตารางที่2",
DB_OPEN_DYNASET)
BSet.AddNew
BSet![ชื่อฟิลด์ที่จะเก็บข้อมูล] = Text1.Value
BSet.Update
BSet.Close
BDb.Close
End Sub