标准表达式中数据类型不匹配，如何解决 谢谢老师

保存的时候 如下提示

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strWhere As String
    Dim strSQL As String
    Dim cnn As Object           'ADODB.Connection
    Dim rst As Object           'ADODB.Recordset

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub

    strWhere = "[wjbm]<>" & Nz(Me![wjbm], 0) & " AND [wjbm]=" & Nz(Me![wjbm], 0)
    If DCount("*", "tblCodeYCGL", strWhere) > 0 Then
        MsgBoxEx "【文件编码】已存在，不允许重复录入。", vbCritical
        Exit Sub
    End If
  
    Set cnn = CurrentProject.Connection

    strSQL = "SELECT * FROM [tblCodeYCGL] WHERE [ID]=" & Nz(Me![ID], 0)
    Set rst = OpenADORecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then
        rst.AddNew
    End If
    rst![lb] = Me![lb]
    rst![wjbm] = Me![wjbm]
    rst![zrbm] = Me![zrbm]
    rst![fxbm] = Me![fxbm]
    rst![pm] = Me![pm]
    rst![bhgxm] = Me![bhgxm]
    rst![bhgms] = Me![bhgms]
    rst![fxrq] = Me![fxrq]
    rst![fhrq] = Me![fhrq]
    rst![sfqr] = Me![sfqr]
    rst![qrrq] = Me![qrrq]
    rst![bz] = Me![bz]
    rst![nd] = Me![nd]
    rst![fj] = Me![fj]
    rst.Update
    Me![ID] = rst![ID]
    rst.Close

    Form_frmCodeYCGL.RefreshDataList
    MsgBoxEx "保存成功！", vbInformation

    If Me.DataEntry Then
        ClearControlValues Me
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Sub

ErrorHandler:
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub