Visual Basic - Cómo usar el password en ConnectionString de ADO?

Saludos...
Tengo el siguiente código:
Dim adoData As ADODB.Connection
adoData.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Farmacia.mdb;Password=" & Clave

Pero al correr ésta rutina me sale el error "No se puede iniciar la aplicación. Falta el archivo de información del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario".
Estoy seguro de que el problema es por el password, pregunto, alguien sabe cómo agregar el password al ConnectionString de ADO?
Uso Access 97.
Desde ya Muchas Gracias

dim cn as New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.3.5.1; Data Source=" & sBase & ";" & _
"Jet OLEDB:Database Password=2487;User ID=Admin"

asi te debe funcionar..cualquier cosa avisame