“实时异常‘-2147217904（80040e10)'至少一个参数没有被指定值”

“实时错误‘-2147217904（80040e10)':至少一个参数没有被指定值”
Private Sub cmdPlanOK_Click()
    Dim UserPlan As New ADODB.Recordset
    Dim DBstr As String
    Dim Licese As String
    Dim PlanNum As Integer
    Dim SqlStr As String
    Dim Remarks As String
    
        If Me.txtLicesePlate.Text = "" Then
            MsgBox "请输入车牌号码！"
            Exit Sub
        ElseIf Len(Trim(Me.txtLicesePlate.Text)) > 9 Then
            MsgBox "车牌号码过长！"
            Exit Sub
        End If
        Licese = Replace(Trim(Me.txtLicesePlate.Text), "'", "''")
        
        If Me.txtPlanNumber.Text = "" Then
            MsgBox "请选择或者输入计划块数！"
            Exit Sub
        End If
        PlanNum = Val(Me.txtLicesePlate.Text)
        Remarks = Replace(Trim(Me.txtRemarks.Text), "'", "''")
                
            '打开数据库
        DBstr = "select * from 待生产牌照 where 车牌号码 = '" & Licese & "'"
        UserPlan.Open DBstr, DBCnn, adOpenForwardOnly, adLockOptimistic
            If Not UserPlan.BOF Then
                MsgBox "该计划已经存在！"
                UserPlan.Close
                Exit Sub
            End If
        UserPlan.Close
        
            '操作数据库添加记录
        SqlStr = "Insert Into 待生产牌照 (车牌号码,计划块数,计划日期,发出计划者,备注)" & _
            "values('" & Licese & "','" & PlanNum & "','" & Now & "','" & UserCurrent & "'," & Remarks & ");"
            DBCnn.Execute SqlStr
            MsgBox "添加成功！"

             '清空
            Me.txtLicesePlate.Text = ""