如何修改ACCESS数据库的密码——在线等待

Question

没有人回答吗，我非常着急希望各位网友们给予帮助，我将会再送分的，谢谢！！！

Answer 1

Private Sub Command1_Click()
  Dim cnn As New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBWithPW.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password=888"
  cnn.Execute "Alter Database password 999 888"
  MsgBox "修改完毕"
End Sub