Visual Basic - Abrir BD access en carpeta compartida

hola mi problema es el siguiente:

Deseo abrir una base de datos access utilizando VB6, la BD esta en una carpeta compartida con Contraseña, ademas de que la bd también tiene contraseña.

Tengo conocimiento de como abrir la base de datos en carpeta compartida de la siguiente manera:

Set Cnn = New ADODB.Connection

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" \\nombre_de_pc\carpeta_compartida\BaseD.mdb;" &_
"Jet OLEDB:Database Password=laclave"

Pero cómo le indico el usuario y contraseña de la "Carpeta compartida" ?

Gracias de antemano

Con ADO no se puede hacer eso, tendrías que conectarte primero a la carpeta compartida con WNetAddConnection o WNetAddConnection2 y luego recién realizar la conexión.

Las API's son estas, revisa cual se adapta mejor a lo que necesitas:

Public Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszPassword As String, ByVal lpszLocalName As String) As Long

Public Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long