求助大神，我在窗体上数据录入完成后，运行程序就报错，运行到 add_rs.AddNew 这一步时就提示：运行时错误‘3001’ 无效参数，请问大神们是什么问题，该怎么处理？万分感谢！！！！
完整代码如下：
Private Sub Command0_Click()
If IsNull(Text16) = True Then
MsgBox "请输入车牌号码！", , "系统提示"
Exit Sub
End If
If IsNull(Text18) = True Then
MsgBox "请输入品牌！", , "系统提示"
Exit Sub
End If
If IsNull(Combo30) = True Then
MsgBox "请输入车型！", , "系统提示"
Exit Sub
End If
If IsNull(Combo32) = True Then
MsgBox "请输入排量！", , "系统提示"
Exit Sub
End If
If IsNull(Combo34) = True Then
MsgBox "请输入座位数！", , "系统提示"
Exit Sub
End If
If IsNull(Combo36) = True Then
MsgBox "请输入所有人！", , "系统提示"
Exit Sub
End If
If IsNull(Combo38) = True Then
MsgBox "请输入来源！", , "系统提示"
Exit Sub
End If
If IsNull(Text40) = True Then
MsgBox "请输入登记日期！", , "系统提示"
Exit Sub
End If
If IsNull(Combo73) = True Then
MsgBox "请输入车辆使用性质！", , "系统提示"
Exit Sub
End If
If IsNull(Text42) = True Then
MsgBox "请输入发动机号！", , "系统提示"
Exit Sub
End If
If IsNull(Text43) = True Then
MsgBox "请输入车辆识别号！", , "系统提示"
Exit Sub
End If
If IsNull(Combo71) = True Then
MsgBox "请输入车况！", , "系统提示"
Exit Sub
End If
Dim add_db As DAO.Database
Dim add_rs As DAO.Recordset
Set add_db = CurrentDb()
Set add_rs = add_db.OpenRecordset("车辆资料", dbOpenDynaset)
add_rs.AddNew
add_rs!车牌号码 = Me!Text16
add_rs!品牌 = Me!Text18
add_rs!车型 = Me!Combo30
add_rs!排量 = Me!Combo32
add_rs!座位数 = Me!Combo34
add_rs!所有人 = Me!Combo36
add_rs!来源 = Me!Combo38
add_rs!登记日期 = Me!Text40
add_rs!发动机号 = Me!Text42
add_rs!车辆识别号 = Me!Text43
add_rs!车况 = Me!Combo71
add_rs!保险起始日 = Me!Text44
add_rs!保险截止日 = Me!Text47
add_rs!交强险 = Me!Text49
add_rs!商业险 = Me!Text51
add_rs!三者险保额 = Me!Text53
add_rs!保费合计 = Me!Text55
add_rs!车船税 = Me!Text57
add_rs!保险公司 = Me!Text59
add_rs!联系电话 = Me!Text61
add_rs![购置价(含税)] = Me!Text65
add_rs![折旧(元/月)] = Me!Text67
add_rs!使用性质 = Me!Combo73
add_rs.Update
add_db.Close
Set add_db = Nothing
Set add_rs = Nothing
MsgBox "资产添加成功！", , "系统提示"
On Error Resume Next
Dim ctl As Control
For Each ctl In Me
Select Case ctl.ControlType
Case acCheckBox
ctl.Value = False
Case Else
ctl.Value = Null
End Select
Next
End Sub