Can anyone explain why the following code works using VB 4.0 and Access
2.0?
The code allows me access to a secured database.  The username "MyUserName"
is not valid in the system MDA and when I use a valid username and password
I get an error message number 3028 "the system database is missing or
opened exclusively by another user".

Thanks in advance for your assistance.

Private Sub Command1_Click()

Dim wsWork As Workspace, dbDatabase As Database, rsRecord As Recordset
Dim co, claim#, box#, bin#, MyUserName As String

On Error GoTo ErrHandler

MyUserName = DBEngine.Workspaces(0).UserName

DBEngine.IniPath = "c:\windows\msacc20.ini"

Set wsWork = DBEngine.CreateWorkspace("Special", MyUserName, "")

Set dbDatabase = wsWork.OpenDatabase("f:\apps\access\workdir\storage.mdb")
Set rsRecord = dbDatabase.OpenRecordset("box and bin")

Do Until rsRecord.EOF
    co = rsRecord![co]
    box# = rsRecord![box#]
    bin# = rsRecord![bin#]    
    rsRecord.MoveNext

    MsgBox co & claim# & box# & bin#

Loop

End Sub

set dbengine = nothing ' this initalises it
dbengine.systemdb = " path of mww file" or your inipath statement
then create the workspace.

the problem is you need to set the systemini or systemdb file before
refering to other things in the dbengine such as usernames etc.. setting
the dbengine = nothing resets it.

Hallo TRG,
my problem was the same special by using vb16. The following code works
fine.
I hope, you can make a use of it.  

sabine

  Set f = FD_Anmelden
  f.Show 1
  a_name = FD_Anmelden!a_name.Text
  a_password = FD_Anmelden!a_password.Text
  Unload FD_Anmelden
  Set e = DBEngine
  e.IniPath = "c:\normgas\normgas4.0\normgas4.ini"
  Set e = Nothing
  Set e = DBEngine
  e.DefaultUser = a_name
  e.DefaultPassword = a_password
  Set ws = e.CreateWorkspace("sitzung1", a_name, a_password)