From: maxat@healey.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)