说下用VB修改access数据库密码的代码步骤：
首先打开VB，在工程-引用-Microsoft actives data object 2.8 library
写入以下代码：
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " ; App.Path ; "\这里输入数据库名称.mdb; " ; "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=111 "
cnn.Execute "Alter Database password 999 111 "
MsgBox "修改完毕 "
End Sub
| 
