我以前问过如何修改密码，已经知道怎么做了。下面是对应的函数。
Private Function 修改MDB密码(ByVal strOldPassword As String, ByVal
strNewPassword As String)
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
If strOldPassword = "" Then
strOldPassword = "NULL"
End If
If strNewPassword = "" Then
strNewPassword = "NULL"
End If
Call conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\test.mdb;" & _
"Mode=Share Deny Read|Share Deny Write;" & _
"Persist Security Info=False;" & _
"Jet OLEDB:Database Password=" & strOldPassword)
Call conn.Execute("ALTER DATABASE PASSWORD " & strNewPassword & " " &
strOldPassword)
Call conn.Close
Set conn = Nothing
End Function
但这个程序中，只能修改密码。
如果是原来没有密码，则需要令旧密码为"NULL"；
或如果原来有密码，要删除掉密码，则需要令新密码为"NULL"。
这样就有个新的问题了。
如果想把密码设置为"NULL"字符串，而不是取消密码，应该怎么写呢？
是不是有什么转义字符可以表示呢？
我说的是用程序修改啊。
用ACCESS我也会。
第一位回答者的答案不行。
1、进入数据库之后，选择创建。选择模板里的空白桌面数据库。
2、创建之后，在桌面的位置保持，并更改文件名。
3、一定要重新创建之后才能够设置密码轿兆。在数据库上的【文件】点击进入。
4、在【信息】可以看到【用密码进行加密】。
5、然后调出【设置数据库密码】，设置密码和验证。
6、设置密码之后调出【使用闭灶租分组加密进行加密与行级别锁定不兼容】。
7、设辩敏置密码时候之后。双击数据库之后就要求输入密码才能打开。
启动acess,然后选文件-以独占方陆迹式打开文件,然后选工具-安全-设置数敬悉或据库密码亮伍
进入access，点击文件，打开选择所要修改密码的文件，以独占方式打开。
输入密码打开文件，然后点击文件―――信息――解桥桐液敏物密数据库。
解除密码后，在点击文件――信息――用密码进行加密，设置新的密码即可。
【注意】
一定要以独占方轮如式打开才能设置。