Very Computer

Hi,

I am a new VB-developer and are hving some truble accessing data from a password
protected database. Since I'm new in this enviroment I find the online help a
bit hard to find my way in. When I open the VB form I get "Invalid Password" and
no records are fetched to my form. How do I give the database password, I would
prefer to do it when i start my VB-application.

I think this is what you want (DAO)

         Set myDB = DBEngine.Workspaces(0).OpenDatabase _
         (Database, False, False, ";PWD=ThePassword")

Hope this helps
CM

On Error GoTo cmdOK_Click_Error
Dim myDB As Database

DBEngine.SystemDB = gstrDBPath & "\myproject.mdw"
DBEngine.DefaultUser = txtUserName
DBEngine.DefaultPassword = txtPassword
Set myWork = DBEngine.CreateWorkspace("myproject", txtUserName, txtPassword,
dbUseJet)
DBEngine.Workspaces.Append myWork
Set myDB = myWork.OpenDatabase(gstrDBPath & gstrDBName)
Screen.MousePointer = vbHourglass
gstrUserName = txtUserName
gstrPassword = txtPassword
MDIMain.Show

cmdOK_Click_Exit:
  Exit Sub
cmdOK_Click_Error:
  Select Case Err.Number
    Case 3029, 3030, 3031
       MsgBox "Invalid User name or Password"
       Me.txtUserName = ""
       Me.txtPassword = ""
       Me.txtUserName.SetFocus
    Case Else
       ErrorBox Err, "cmdOK_Click"
       Resume cmdOK_Click_Exit
  End Select