HEEELLLPPP!!! DAO

[Candu]

I am trying to get my VB appicaltion to access and access .mdb database that has been password protected. I keep getting an error saying "Can't find installed ISAM,
3071". Here is the code I am using:
' Setup the database
Set wrkSpcDatDel = DBEngine.CreateWorkspace("wrkSpcDatDel", "Admin", "",
dbUseJet)

' Open the database
Set db = wrkSpcDatDel.OpenDatabase(strRdbms, False, False, strRdbmsPwd)

Does anyone know how to fix this or what the heck am I doing wrong?

I even went so far as to remove VB6.0 and then reinstall it in the event the the files or
the registry got mucked up.

HEEEEEEEEELP!!!!!!!


Can any one help me?

:Confused:

------------------
David L. Baudais
Systems Analyst

[Candu]

Thanks for your help and I found my solutiion and I feel very dumb.

The problem was that I forgot to include the ";pwd=" in the strDbmsPwd variable.


------------------
David L. Baudais
Systems Analyst

[bsmith]

The definition for error 3071 I found is as follows:
This expression is typed incorrectly, or it is too complex to be evaluated. For example, a numeric expression may contain too many complicated elements. Try simplifying the expression by assigning parts of the expression to variables. (Error 3071)

As far as for the code I am not sure. You might want to try putting the password in the CreateWorkspace statement.

    Set wrkSpcDatDel = DBEngine.CreateWorkspace("wrkSpcDatDel", "Admin", strRdbmsPwd,
dbUseJet)
    ' Open the database
    Set db = wrkSpcDatDel.OpenDatabase(strRdbms)