求助恢复Shift键的代码

求助各位老师：

我做了一个Access文件，学着在当中编了一段跳过Shift键的代码（代码如下），运行后完全可行，但是我不会写恢复Shift键的代码，还请各位老师帮助，谢谢！

Public Sub jzShift(bFlag As Boolean) '跳过Shift键
    Dim db As DAO.Database
    Dim pBypass As DAO.Property
    Const sKEYNAME As String = "ALLowBypassKey"
    Set db = CurrentDb
    On Error Resume Next
       Set pBypass = db.Properties(sKEYNAME)
    On Error GoTo 0
    If pBypass Is Nothing Then
       Set pBypass = db.CreateProperty(sKEYNAME, dbBoolean, bFlag)
       db.Properties.Append pBypass
    Else
       pBypass.Value = bFlag
    End If

End Sub