Public Sub setPW(ByVal oldpwd As String, ByVal newpwd As String)
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=F:\Test\nwind2000.mdb;Jet OLEDB:Database Password=" & oldpwd _
          & ";Mode=Share Deny Read|Share Deny Write;"
        oldpwd = IIf(oldpwd = String.Empty, "Null", "[" & oldpwd & "]")
        newpwd = IIf(newpwd = String.Empty, "Null", "[" & newpwd & "]")
        Dim commandText As String = "ALTER DATABASE PASSWORD " & newpwd & " " & _
          oldpwd
        Try
            Using cn = New OleDb.OleDbConnection(connectionString)
                cn.Open()
                Dim cmd As New OleDb.OleDbCommand(commandText, cn)
                cmd.ExecuteNonQuery()
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist