使用ADO记录集向含自动编号字段的表中添加记录时出错

如题，设有表1（ID（自动编号），

          字段1（文本）

          字段2（文本）

          ）

使用ADO记录集向表1中添加记录：

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "表1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdTable
rs.MoveFirst

rs.AddNew

rs.Fields(1)="a"

rs.Fields(2)="b"

rs.Update
rs.Close
Set rs = Nothing

弹出出错信息：“对象变量或with块变量未设置”