vb如何关闭access数据库

Private Sub 退出_Click()

On Error GoTo Err_退出_Click

DoCmd.close

Exit_退出_Click:

Exit Sub

Err_退出_Click:

MsgBox Err.Description

Resume Exit_退出_Click

End Sub

显示对象关闭时不允许 *** 作的提示，一般是数据库连接关闭时，进行查询，读写等 *** 作时产生的错误。

请自行在运行查询等 *** 作前，检测下数据库是否连接，如果没有连接请重新连接后再进行 *** 作即可。

vb6与数据库的连接方法很多，取决于你的目的，如果你主要是为了把数据按照传统的表格方式展现出来，那么你可以用dbgrid之类的控件，里面可以设置数据源，然后自动他就会自动获取数据源里面的信息并显示出来，也可以进行一些简单的数据修改 *** 作。如果你想要对数据进行比较复杂的程序处理，那么可以使用ado对象来连接和查询数据库，里面有一个recordset对象，可以对查询的结果进行遍历，分析等。

对access数据库加密一般都是使用access软件实现吧？我不清楚代码怎么实现，但是用软件就只需要在菜单 *** 作就可以了。具体来说就是文件菜单选择打开，在”打开“后面的下拉式莱单中选为独占模式打开，这样打开文件后，使用工具菜单里面的安全，里面就有设置数据库密码

---