'创建一个ADODB
private rs As ADODB.Recordset
private objcmd As ADODB.Command
private objConn As ADODB.Connection
Set objConn = New ADODB.Connection
Set rs = New ADODB.Recordset
Set objcmd = New ADODB.Command
objConn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XXX"
Set rs.ActiveConnection = objConn
Set objcmd.ActiveConnection = objConn
rs.open "select * from aaa where .......", , adOpenStatic, adLockOptimistic