>Hi,
> I set password to my Access Database. I tried the following statement to open database, but failed.
>
>

>dim wrk as workspace
>DIM db as Database
>
>Set wrk = CreateWorkspace("", "admin", "", dbUseJet)
>
>Set db = wrk.OpenDatabase("C:\WINDOWS\DESKTOP\PCACCESS.MDB", , True, ";uid=sa;pwd=fong")
>
>

>
>Any ideas?

Put the value False in the options parameter like this:

Private Sub Command1_Click()
Dim wrk As Workspace
Dim db As Database

Set wrk = CreateWorkspace("", "admin", "", dbUseJet)

Set db = wrk.OpenDatabase("C:\bd1.MDB", False, True, ";pwd=123")
End Sub