我想动态的改变Access数据库的用户名和密码，总是不成功，请高手贴一段代码指导指导！
帮我看看哪里错了！：
Dim str As String
str = "Provider=Microsoft.Jet.OLEDB.4.0;Password= ;User ID=Admin;Data Source=d:\tfsj.mdb"
Dim aCon As New OleDb.OleDbConnection()
aCon.ConnectionString = str
aCon.Open()
Dim x As New OleDb.OleDbCommand()
x.Connection = aCon
x.CommandText = "ALTER Database Password " & "123" & " ``"
x.ExecuteNonQuery()‘执行后出错！
---------------------------------------------------------------
连接串中的Password的写错了应是:Jet OLEDB:Database Password
解决方法：
"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password= ;User ID=Admin;Data Source=d:\tfsj.mdb"