สร้าง Text Box 3 อันชื่อ Primary1-3 แล้วเพิ่มปุ่ม 1 ปุ่ม ให้ชื่อเป็น cmdAdd ก็แล้วกัน แล้วใส่โค้ดต่อไปนี้ไป Private Sub cmdAdd_Click() Dim dbs As Database, rst As Recordset Dim strPrimary1 As String, strPrimary2 As String, strPrimary3 As String On Error Resume Next Set dbs = CurrentDb With dbs Set rst = .OpenRecordset("tblPrimary") rst.AddNew rst!Primary1 = Me.Primary1 rst!Primary2 = Me.Primary2 rst!Primary3 = Me.Primary3 rst.Update rst.Close .Close End With Me.Primary1 = "" Me.Primary2 = "" Me.Primary3 = "" End Sub ลองดูคครับ

ขอบคุณค่ะ