修改密码没有反应

我在本站下载一个http://www.accessoft.com/article-show.asp?id=5728通用的菜单，我把这个access数据库升迁为sql server 2000 数据库，点击修改密码就没有反映了，

On Error GoTo ae
    DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DRIVER=SQL Server;SERVER=192.168.1.120;UID=sa;PWD=123;DATABASE=档案管理系统_beSQL", acTable, "", "", True
ae:
Select Case Nz(MYID(0), 0)
    Case 0
        Me.用户ID.Locked = False
        Me.Form.Caption = "登录窗体"
        Me.登录.Caption = "登录"
        Me.用户ID.SetFocus
        Me.用户ID.Dropdown
    Case Else
        Me.Form.Caption = "修改密码窗体"
        Me.用户ID.Locked = True
        Me.用户ID.Value = MYID(0)
        Me.登录.Caption = "修改密码"
End Select
End Sub

 

Private Sub 登录_Click()
Dim ssql As String
Select Case Me.登录.Caption
    Case "登录"
        If IsNull(Me.用户ID.Value) = False Then
            If Me.密码.Value = Me.用户ID.Column(2) Then
                MYID(0) = Me.用户ID.Column(0)
                MYID(1) = Me.用户ID.Column(3)
                Call 菜单权限("MyCommandBar")
                DoCmd.Close acForm, Me.Name
            Else
                MsgBox "密码错误！"
                Me.密码.Value = Null
            End If
        End If
    Case "修改密码"
        If IsNull(Me.用户ID.Value) = False Then
            If Len(Me.密码.Value) >= 4 Then
                ssql = "UPDATE 用户表 SET 密码 = '" & Me.密码.Value & "'"
                ssql = ssql & "WHERE 用户ID=" & MYID(0)
                CurrentDb.Execute ssql
                MsgBox "请重新登录！"
                Quit
            Else
                MsgBox "密码长度需大于4！"
                Me.密码.Value = Null
            End If
        End If
End Select
End Sub

这个代码，在执行的时候报红字部分错误；请问怎么解决！