在修改所选的记录后，在保存返回到当前所操作的记录时出现运行错误2105

在修改所选的记录后，在保存返回到当前所操作的记录时出现运行错误2105

Private Sub Cmd保存_Click()
    If Me.DataEntry Then
    Call TJ 
    Else
    Call XG
        DoCmd.Close acForm, Me.Name, acSaveNo     
        DoCmd.Restore 
    End If  
End Sub
-------------------------------------------
Public Sub XG()
Dim rst As Object
Dim strSQL As String
Dim currentID As String
Dim strFrm As String
If Nz(Me.客户名称, "") = "" Or _
   Nz(Me.客户状态, "") = "" Or _
   Nz(Me.地区, "") = "" _
   Then
MsgBox "必填项【客户名称、客户状态、地区】不能为空！", vbCritical, "警告"
Me.客户名称.SetFocus
Exit Sub
End If
 
currentID = Form_Frm_客户.Frm_客户_List_Child.Form.客户序号
strSQL = "select * from Tbl_客户 where 客户序号 ='" & currentID & "'"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
rst.MoveFirst
rst.Edit
rst!审核 = Me.审核
………………………………
rst!录入日期 = Me.录入日期
rst.Update
rst.Close

'========================================================
'新增的用于修改记录后再返回到所修改的记录上。
Dim jl As Integer
jl = Form_Frm_客户.Frm_客户_List_Child.Form.CurrentRecord

Form_Frm_客户.Frm_客户_List_Child.Form.Requery    '原刷新

Form_Frm_客户.Frm_客户_List_Child.SetFocus
DoCmd.GoToRecord , , acGoTo, jl
'========================================================

MsgBox "修改后的记录保存成功！", vbInformation, "提示"
ExitHere:
    Set rst = Nothing
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
    Resume ExitHere
End Sub

BBBB