I have an application I am working on which has an Access97 database with
VB6 interface and Crytal Reports. The database is secured using Access
security, and the customer must have the ability to change his/her
password. I can not seem to get this functionality working. Here is the
code I am using:  

Function ChangePassword (sOld As String, sNew As String, sVerify As String)
As Boolean      
        ChangePassword = False

        Dim usr as ADOX.User    

        'Some verification code
        usr.Name = gCurrentUser         'Global variable initialized on login
        usr.ChangePassword sOld, sNew

        ChangePassword = True
'Error handler
End Function

The problem is the code executes with no problem except of course the
password is not changed. This is my first stab at the ADO security model.
I am a SQL Server guy used to the stored procedures and just learning the
ADO security model. Can anyone help.  Thanks in advance.

Ray