<%
arc="tata.mdb"
Dim strAlterPassword ' As String

strAlterPassword = "ALTER DATABASE PASSWORD [123456] NULL;"
Set objConn = Server.CreateObject("ADODB.Connection")
'Set objConn = New ADODB.Connection
With objConn
.Mode = adModeShareExclusive
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(arc)
.Execute (strAlterPassword)
End With
objConn.Close
Set objConn = Nothing
%>

mi da errore...

Tipo di errore:
Microsoft JET Database Engine (0x80004005)
Impossibile cambiare la password su un database aperto condiviso.

non so cosa fare...