HERE´S THE CODE
Dim CN As ADODB.Connection, RS As ADODB.Recordset
Set CN = New ADODB.Connection
Set RS = New ADODB.Recordset
CN.CursorLocation = adUseServer
STRCON = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DBPATH & ";" & "Persist Security Info=False;" & "Jet OLEDB

atabase Password=" & PASSWD
SQL = "SELECT COD FROM DESCRIPTION WHERE TEXTO LIKE '*H*'
(JUST ONE TABLE WITH COD (STRING), TEXTO (STRING) AND SITUATION(BYTE)
CN.Open STRCON
RS.Open SQL, CN
IF RS.EOF AND RS.BOF THEN ..... (ARE ALWAYS TRUE)
THE SQL QUESTION WORKS CORRECTLY USING DAO:
SET DB=OPENDATABASE(DBPATH)
SET RS=DB.OPENRECORDSET(SQL)
(IN THIS CASE RS.RECORDCOUNT IS 155). (I KNOW WITH THE SENTENCES IN ADO I'M GETTING JUST THE FIRST RECORD)
THANK YOU EVERYBODY IN ADVANCE.