asp如何获知Connection对象更多的信息？

运行以下代码： 

Dim com As ADODB.Command 
Dim rst As ADODB.Recordset 
Set com = New ADODB.Command 
com.ActiveConnection = _ 
"Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=NWind.mdb;" 
com.CommandText = "SELECT * FROM Customers" 
Set rst = com.Execute 
MsgBox com.ActiveConnection.ConnectionString 
rst.Close 
Set rst = Nothing 
Set com = Nothing 

我们就会从消息框看到如下输出： 

Provider=Microsoft.Jet.OLEDB.4.0; 
Password=""; 
User ID=Admin; 
Data Source=NWind.mdb; 
Mode=Share Deny None; 
Extended Properties=""; 
Jet OLEDB:System database=""; 
Jet OLEDB:Registry Path=""; 
Jet OLEDB:Database Password=""; 
Jet OLEDB:Engine Type=4; 
Jet OLEDB:Database Locking Mode=0; 
Jet OLEDB:Global Partial Bulk Ops=2; 
Jet OLEDB:Global Bulk Transactions=1; 
Jet OLEDB:New Database Password=""; 
Jet OLEDB:Create System Database=False; 
Jet OLEDB:Encrypt Database=False; 
Jet OLEDB:Don't Copy Locale on Compact=False; 
Jet OLEDB:Compact Without Replica Repair=False; 
Jet OLEDB:SFP=False 

现在分析这些字符串，就可以找出有关该连接的特定信息了，比如当数据库被压缩时它是否会被加密（Jet OLEDB:Encrypt Database属性）。