DelUserDB

Function sDeleteAUser (strName As String)
Dim ws As WorkSpace
Set ws = dbengine.workspaces(0)
ws.Users.Delete strName
ws.Users.Refresh
End Function