VB60 - Error 3356 en datagrid si Access tiene contraseña

Hola!!

Trabajo sobre vb60 con Access 2007.

La bd de Access está protegida con contraseña y tengo vinculado un datagrid a una tabla temporal, el primer acceso lo realiza correctamente, pero mientras la pantalla está abierta mantiene la bd abierta en modo exclusivo y no permite ningún acceso a la misma

El código utilizado es el siguiente

Private Sub LlenaGridSaldo()
Dim cn As ADODB.Connection
Dim rs3 As ADODB.Recordset
Dim sentencia As String
Set cn = New ADODB.Connection
Set rs3 = New ADODB.Recordset
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=" & Bd
cn.Properties("Jet OLEDB:Database Password") = MDInici.txtPassw2.Text
cn.CursorLocation = adUseClient
cn.Open
sentencia = "Select * FROM ConsultasTmp order by Cfecha"
rs3.Open sentencia, cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs3
DataGrid1.Refresh
End Sub

He probado a quitar el password al Access y eliminar el código referente al mismo y funciona correctamente.