Simone
两种办法胡让，一种是 用SQL，另一种是ADO1、用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
