有两种方法可以通过dataenvironment连接到加密的access数据库：
一种方法是在设计状态时，在dataenvironment的connection对象的connectionsource属性的有效连接字符串后加上” ;jet oledb: database password=1234”。
另一种方法是在dataenvironment_initialize()事件中编写如下代码：
private sub dataenvironment_initialize( )
dim strconn as string
strconn=” provider=microsoft.jet.oledb.3.51;” & _
”data source=” & app.path & “\ssgl.mdb;” & _
”; jet oledb: database password=1234”
dataenvironment1.connection1.connectionstring=strconn
end sub
以上方法及相关代码笔者都已在windows 98操作系统环境，visual basic 6.0中调试、验证并通过。
