'Delete a user
Public Sub DeleteUser(strUser As String)
    On Error Resume Next
    DBEngine(0).Users.Delete strUser
End Sub