同一事件进行多次查询的问题

Question

我在同一事件中作多次的查询是每次都要对 ADODB的一写属性负值，还是一次复制多次调用SPL语句。比如ActiveConnection ，CursorType 等
dim rs2 As ADODB.Recordset
strsql = "select Name from c_code where code1='002' 
        Set rs2 = New ADODB.Recordset
        rs2.ActiveConnection = cn
        rs2.CursorType = adOpenDynamic
        rs2.CursorLocation = adUseClient
        rs2.LockType = adLockOptimistic                
        rs2.Open strsql