From: maxat@healey.com.au   
      
   oops on the previosus post   
      
   replace mde in my previous post with MDW  (IE the work group file)   
      
   "Max Healey"  wrote in message   
   news:44651b1d$0$10976$afc38c87@news.optusnet.com.au...   
   > When you say I set the password in the database, are you saying you   
   > changed the admin password in the work group?   
   >   
   > because there is a difference between a database that has a password set   
   > and the workgroup passwords   
   >   
   >   
   > the work group passwords are much more useful because you can give various   
   > users different permissions, I use this in my apps to hide some of my   
   > better query's from the casual user by setting them as not visible to the   
   > admin user, so simply opening the database in access will not display   
   > them.   
   >   
   > much better then setting a password because they don't know it is there a   
   > password is asking for some one to use a cracking tool.   
   >   
   > The code you have would work if you changed the administrator password in   
   > the mde but then you would need to distribute the MDE file as well as the   
   > mdb and you would need to set its path in the connection string.  "Jet   
   > OLEDB:System database=c:\xxx\.xx.mde"   
   >   
   > I have not done anything in DAO in years but this example found on a   
   > google search would work in ADO for a situation where the database   
   > password is set.   
   >   
   > Dim App_Cnn As ADODB.Connection   
   > Dim rs As ADODB.Recordset   
   >   
   > Set App_Cnn = New ADODB.Connection   
   > With App_Cnn   
   >   .Provider = "Microsoft.Jet.OLEDB.4.0"   
   >   .Properties("Data Source") = App.Path & "\Database\Class.mdb"   
   >   .Properties("Jet OLEDB:Database Password") = YourDBPassword   
   >   .Open   
   > End With   
   >   
   >   
   > Max   
   >   
   >   
   > "Joe-Paul"  wrote in message   
   > news:U4idnR6m0YMHTvnZRVn-hg@comcast.com...   
   >> Because jprobb4649 is the real password that I copied out of the   
   >> program.... should have changed it before posting? :0(   
   >> "Angelo"  wrote in message   
   >> news:44649090$0$4776$e4fe514c@dreader32.news.xs4all.nl...   
   >>> you had password abcdef1234 right? well.. why you do jprobb4649?   
   >>>   
   >>>>    Set secDB = OpenDatabase(secPath & "\Setup.mdb", , False,   
   >>>> "pwd=jprobb4649")   
   >>>   
   >>> --   
   >>>  _______________________   
   >>> / .,,    /\      \|/    \   
   >>> (  MR.   /--\.-` - O - `-.)   
   >>> (       /    \    /|\     )   
   >>> \_______________________/   
   >>>   
   >>   
   >>   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)