security in VB

I want to write aprogram in VB that working in windows NT ,this program should read,write and modify adatabase
of ACCESS.These operations should be ellegall for some users and are not for some others,would anybody deal with this situation,i hope so .
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.


To perform a file write in NT system user must have privilege to do that, your app needs it, this is a must.

You need to do own user login for the app and then check which options may be available for the user there mustbe a user database/table for this, this is very easy to create in VB.

If you do not wan't the login form, you can install the app in separate working levels using personalized regkeys in "current" (every user has one in NT) user section.
The security is relative high, but it is breakable by users who can read NT registry whit regedit, also you may use NT system security to set these programs unavailable.

norman2000Author Commented:
The database files ,which store important data,would not be performed by any body except by apermited users ,and that should be only by the program(io. even the operating system can not modify or delete these files).
Why not create security in Access?

' #VBIDEUtils#************************************************************
' * Programmer Name  : Mike Scaife
' * Web Site         :
' * E-Mail           :
' * Date             : 28/06/99
' * Time             : 11:32
' **********************************************************************
' * Comments         : Access 2.0 security groups
' *
' *
' **********************************************************************

Function rmsAdminPerson () As Integer

   'Test if current user belongs to the MaintAdmin Group
   'return True if so
   Dim Mygroup     As Group
   Dim MyWSpace    As WorkSpace
   Dim intLoopUser As Integer

   On Error Goto ERROR_rmsAdminPerson

   Set MyWSpace = dbengine.workspaces(0)
   Set Mygroup = MyWSpace.groups("MaintAdmin")

   For intLoopUser = 0 To Mygroup.users.count - 1
      If Mygroup.users(intLoopUser).Name = CurrentUser() Then
         rmsAdminPerson = True
         Exit Function
      End If

   Next intLoopUser

   rmsAdminPerson = False
   On Error Goto 0
   Exit Function
   Resume EXIT_No_Belong

End Function


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.