哪位帮看看——错误2465

Private Sub cmdSave_Click()
On Error GoTo Err_cmdSave_Click
    Dim rs As New ADODB.Recordset
    'Dim Gxdm As Integer

    If Not IsNull(cmbCm) Then
        Gxdm = Me.cmbCm
    ElseIf Not IsNull(cmbJm) Then
        Gxdm = Me.cmbJm
    ElseIf Not IsNull(cmbQm) Then
        Gxdm = Me.cmbQm
    Else
        MsgBox "管辖地区为空，不能保存！", , "提示"
        Exit Sub
    End If
    strSQL = "select * from sj"
    Set rst = New ADODB.Recordset
    rst.CursorLocation = adUseClient
    rst.Open strSQL, CurrentProject.Connection, 2, 3
    rst.AddNew

    rst!Gxdm = Gxdm
    rst!Dwmc = Me.txtDwmc
    rst!Zrr = Me.txtZrr
    rst!Fj = Me.cmbFj
    rst!Sfrq = Me.txtSfrq
    rst!Jyqk = Me.txtJyqk
    rst!Clyj = Me.cmbClyj
    rst!Jyr = Me.txtJyr
    rst!Jyrq = Me.txtJyrq
    rst!Bgrq = Date
    rst.Update
    rst.Close
    Set rst = Nothing
    ' DoCmd.RunCommand acCmdSaveRecord

Exit_cmdSave_Click:
        Exit Sub
   
Err_cmdSave_Click:
        If Err.Number = 3022 Then
            Me.Undo
        Else
            MsgBox Err.Number & Chr(13) & Description
        End If
        Resume Exit_cmdSave_Click

End Sub