Dim MyConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a1.mdb;mode=12;Jet OLEDB:Database Password =null")
Dim MyCommand As OleDb.OleDbCommand
MyConnection.Open()
MyCommand = New OleDb.OleDbCommand("ALTER DATABASE PASSWORD 123456 null", MyConnection)
Try
MyCommand.ExecuteNonQuery()
Catch c As Exception
MsgBox(c.ToString)
End Try
MyConnection.Close()
MyCommand.Dispose()