From: email@none.com   
      
   Dont forget the semicolon:   
   Set secDB = OpenDatabase(secPath & "\Setup.mdb", False, False, ";   
   pwd=jprobb4649")   
      
   "Joe-Paul"  wrote in message   
   news:CfydnV3UH6duLf7ZRVn-sQ@comcast.com...   
   > Hi:   
   >   
   > I'm using VB 6.0 with an Access 2000 database.  I set the password in the   
   > Access database to: abcdef1234.  Then, using a MDIform, during the load   
   > event, I send the program to a procedure to get some info out of the   
   > database that has been password protected.  I use the following code:   
   >   
   > Public Sub GetSecInfo()   
   >    Dim secSQL As String, uName As String   
   >    Dim secRst As DAO.Recordset   
   >    Dim secDB As DAO.Database   
   >    Dim secRc As Integer, i As Integer   
   >   
   >    Set secDB = OpenDatabase(secPath & "\Setup.mdb", , False,   
   > "pwd=jprobb4649")   
   >   
   >    My sql goes here.   
   >   
   > Anyway, when the program gets to the "Set secDB" statement, I get an error   
   > that says:   
   >    Error 3031 -- Not a valid password.   
   >   
   > I've tried with and with the "pwd=" and that doesn't make any difference.   
   >   
   > How do I set the password in the database and then open the password   
   > protected database?  I've seen it done in other programs using VB 6.0 and   
   > Access 2000, but have never seen the code.   
   >   
   > Thanks in advance for any assistance you can give me.   
   >   
   > JP   
   >   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)