'保存记录集
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "Select * from youTable", cn, adOpenKeyset, adLockOptimistic
rs.Save "F: \Encrypt.ADTG"
'or rs.Save "F: \Encrypt.XML"
'打开记录集
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "F:\Encrypt.ADTG", "Provider=MSPersist" _
, , , adCmdFile