Password Protected

i am using ado and access for databse
my database has a passowrd how do i open it through coding?

'connection to secure database
Dim Cnn As ADODB.Connection
Dim Rst As ADODB.Recordset

'In the place where you want to establish your connection, such
'as the Initialize event of a class module, enter the following:

Dim strConnect As String
Set Cnn = New ADODB.Connection

'Substitute your own User IDs, Password, Data Source, and System
'database in the connection string below
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Password=MyPassword;User ID=Administrator;" & _
"Data Source=C:\AccessDBs\DB1.mdb;" & _
"Persist Security Info=True;" & _
"Jet OLEDB:System database=C:\AccessDBs\system.mdw"

With Cnn
.CursorLocation = adUseClient
.Open strConnect
End With

Set Rst = New ADODB.Recordset
Rst.ActiveConnection = Cnn

Iouri Boutchkine
[email protected]

thanx for ur help
but still i need ur help
now it is giving me an error undefined user id or wrong password
the thing is i have not set any user id to that database(cause i dont know how 2) but i tried "Admin" or the full word but it is not working plzz help me
thanx once agin
bye & take care
sarfaraz..........