增加记录，ID不更新，请问是什么情况？

beche100

Private Sub C新增_Click()
Dim Db As DAO.Database
Dim Rs As DAO.Recordset
Set Db = CurrentDb()
  Set Rs = Db.OpenRecordset("收入明细", dbOpenDynaset)
  '新增记录
  Rs.AddNew
     Rs!ID = Me!ID
    Rs!日期 = Me!日期
    Rs!年份 = Me!年份
    Rs!收入项目 = Me!收入项目
    Rs!收入账户 = Me!收入账户
    Rs!收入金额 = Me!收入金额
    Rs!摘要 = Me!摘要
    If IsNull(ID) Then
    MsgBox "没输入主键"
    Else
         '更新记录
    Rs.Update
    MsgBox "新增成功"
   End If
   

End Sub


请大神指正！

beche100

折腾半天，原来修改这里就行。

YANWEI82123300

ID格式改为数字或者文本,不要使用自动编号