以下程式碼能使用的前提是庫引用、和資料庫連線程式碼正確:

兩種辦法，一種是 用SQL，另一種是ADO

1、用SQL新增資料：

insert into 表名（欄位1，欄位2，欄位3）

values（值01，值02，值03）

例如：

docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values("王明",35,"外貿總監",12500)"

2、用ADO的辦法：

ADO比較複雜，給你一個完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select * from *表"

Set RSfitjc = New ADODB.Recordset ‘定義一個ADO連線，連進資料庫

RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’開啟連線

RSfitjc.addnew "新增一個紀錄

RSfitjc.Fields("配件編號") = “style” ‘給每個欄位賦值

.Update ’儲存賦值的新紀錄

.Close 關閉連線

End With