Soy nUeVo, en el foro, en la vida llevo 38 años

[jrp01]

Si lo asignas a un recordset seria algo asi:

Código:

Dim Rs as new Adodb.recordset
Dim cn as new Adodb.connection
Dim Sql as String
Sql="select cod_articulo from articulo where cod_producto like " & tu_codigo & " and sem_inicial>=" & tu_text & " and sem_final <=" & tu_otro_text
Set Rs=cn.execute(Sql)

Y asi en Rs tienes todo lo que regrese la consulta