debes colocar lo siguiente:
Cadena_SQL = "SELECT COUNT(*) as cus_name FROM OECOTIZACION_SQL"
Cadena_SQL_2 = "SELECT * FROM OECOTIZACION_SQL"
If RS1.State = adStateOpen Then
RS1.Close
End If If RS2.State = adStateOpen Then
RS2.Close
End If
Espero te sirva
Rsl.Open Cadena_SQL, Connect, adOpenDynamic, adLockPessimistic
Rs2.Open Cadena_SQL_2, Connect, adOpenDynamic, adLockPessimistic