Visual Basic 6 - pass a db

Ho provato ad aprire un db con pass utilizzando dao

Dim ws As Workspace, db As Database
DBEngine.SystemDB = App.Path & "\gdl.MDW" ' il nome del file del gruppo di lavoro
Set ws = DBEngine.CreateWorkspace(sessione, utente, passwd)
Set db = ws.OpenDatabase(App.Path & "\db1.mdb"

cambiando libreria da DOA a ADO non so dove caricare il file di gruppo di lavoro (non c'è l'oggetto DBEngine)

Dim cnPrinc As Connection
Set cnPrinc = New ADODB.Connection
cnPrinc.CursorLocation = adUseServer
cnPrinc.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\db1.mdb"

Penso che il file di gruppo di lavoro si debba mettere nella stringa di connessione ma non so dove.

Help me!!!!!!!

CIAO, il comando corretto è il seguente:
' Dichiaro le variabili

Public strPw as String
Public strConn As String
Public rstRecord As ADODB.Recordset
Public Connessione As New ADODB.Connection

' Impostazione della connessione al Database.
Connessione.CursorLocation = adUseClient
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =c:\miodb.mdb;Jet OLEDB:" & _
"Database Password=" & strPw
' Apro la connessione.
Set Connessione = New ADODB.Connection
Connessione.Open strConn

' Apro la tabella
' Comando SQL per l'apertura della tabella.
Set rstRecord= New ADODB.Recordset
rstRecord.CursorLocation = adUseClient
rstRecord.CursorType = adOpenStatic
rstRecord.LockType = adLockOptimistic
rstRecord.Open miatabella, Connessione), , , 1

Quando la tabella non ti serve più la devi chiudere

rstrecord.close
Set rstrecord=Nothing

Questo è il comando per chiudere la connessione

connessione.close
set connessione=Nothing

Grazie!!!!
Sei un grande!!!!