Sviluppo con VB.NET 1.1.

Utilizzando ADODB faccio delle modifiche ad un DataBase in Access e lo chiudo.
Poi subito lo riapro in modo esclusivo per assegnargli una PassWord.

Ma nell'apertura in modo esclusivo da errore dicendo che è già aperto.
Se esco dal programma e rientro mi permette di assegnare la password.

I comandi utilizzati sono i seguenti:

Dim cnTmp As ADODB.Connection = New ADODB.Connection

cnTmp.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" & strPth & ";"
cnTmp.Properties.Item("Jet OLEDB:Database Password").Value = strPwd
cnTmp.Mode = ADODB.ConnectModeEnum.adModeRead
cnTmp.Open()
cnTmp.Close()

cnTmp = nothing

cnTmp.Mode = ADODB.ConnectModeEnum.adModeShareExclusive

cnTmp.Open()
cnTmp.Execute(strCmd)

cnTmp = Nothing

C'è un modo per fare in modo che la Close della connessione funzioni in modo completo?

Ciao a tutti e grazie.
Paolo

E' vero, ho posto solo un esempio in formato ridotto.
Questo è l'esempio completo.
Alla fine, sull'open della sub Pwd mi dice che non può aprirlo, nonostante siano state chiuse tutti gli oggetti nella sub Crea.
Grazie x l'attenzione e ciao.
Paolo.

private sub Crea
Dim ctTmp As New ADOX.Catalog
Dim cmdTmp As New OleDbCommand
Dim dcnTmp As New OleDbConnection

With ctTmp
.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + strPathLis + ";")
End With

dcnTmp = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & LibGenDef.AUXPATHLOCALTMP)
dcnTmp.Open()
strSql = "SELECT * INTO [TabGen] IN '" + strPathLis + "' FROM TabGen WHERE lis_cod = '" + y("tmp_cod") + "'"
cmdTmp = New OleDbCommand(strSql, dcnTmp)
cmdTmp.ExecuteNonQuery()

ctTmp = Nothing

cmdTmp.Connection.Close()
cmdTmp.Dispose()

dcnTmp.Close()
dcnTmp.ReleaseObjectPool()
dcnTmp.Dispose()

End Sub

private sub Pwd
Dim strPwd As String = "Pippo"
Dim sCmd As String = "ALTER DATABASE PASSWORD [" + strPwd + "] NULL;"
Dim cnTmp As ADODB.Connection
Dim strPathLis As String = LibGenDef.LISTINIPATH + DIRLIS + y("tmp_cod") + "\Listino" + ".mdb"

cnTmp = New ADODB.Connection
With cnTmp

.Provider = "Microsoft.Jet.OLEDB.4.0;Data Source=" + strPathLis + ";"

.Mode = ADODB.ConnectModeEnum.adModeShareExclusive
.Open()

.Execute(sCmd)

End With

cnTmp = Nothing

End Sub