创建窗体，取名保存，然后左上角视图点击切换到设计视图，
数据选项卡数据输入改为是，就可以代码生成器了
Private Sub Command0_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset("学生信息", dbOpenDynaset)
'新增记录
Rs.AddNew
Rs!ID = 11
Rs!姓名 = "wer"
Rs!性别 = "asf"
If IsNull(ID) Then
MsgBox "没输入主键"
Else
'更新记录
Rs.Update
MsgBox "新增成功"
End If
End Sub
