Hi I have vbs that it works with the DB password set to aaaa. But it doesn't work with a strong password, like 5wNKc7if/b5JZ1
Can you help me on this ? 

If WScript.Arguments.Count<2 Then
      WScript.Echo "Usage: "&WScript.ScriptName & " <folderpath> <password>"
      WScript.Quit(0)
End If
fldr = WScript.Arguments(0)
pwd = WScript.Arguments(1)

Set cn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(fldr)
Set fc = f.Files

For Each f1 in fc

If Right(UCase(f1.Name),4)=".MDB" Then
With cn
      .Provider = "Microsoft Jet 4.0 OLE DB Provider"
      .Mode = 12
      .Properties("Data Source").Value = f1.Path
      .Properties("Jet OLEDB:Database Password").Value = pwd
      .Open
End With
SQL = "ALTER DATABASE PASSWORD NULL " & pwd
cn.Execute SQL
cn.Close

End If
Next

Set cn = Nothing