Esta muy bien como lo haces, solamente que yo siempre guardo mi consulta en una Variable y despues se la paso a la conexion, es decir por si quiero verificar que realmente estoy mandandole los parametros a mi consulta, unicamente la imprimo.
Y tu condicion If Rs.EOF = False no deberia ser asi ya que en caso de que falle la consulta tambien entraria a tu bloque condicional. En tu caso lo mas correcto seria que evaluaras RS.recordCount > 0
Código visualbasic:
Ver originalCall BD.conectarBD
dim SQL as String
SQL="SELECT tabla_activo.id_activo..."
debug.print SQL
Set Rs = Conexion.Execute(SQL)
If Rs.EOF = False Then