Visual Basic 6 - uso query

Salve a tutti io interrogo i db con la seguente connessione a essi:

stri = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stri = stringa & "C:\Users\Utente\Documents\Programmi VB6\Programma\Datadb\Esempio.mdb"

Set Cn2 = New ADODB.Connection
    Set rs2 = New ADODB.Recordset

Cn2.Open stri
rs2.Open "Esempio", Cn2, 3, 3

e per poi usare una molteplice serie di cicli per prelevare i dati in questione :/
vorrei utilizzare delle query ma non riesco ad utilizzarle, esempi ???
grazie mille

Usa una SELECT ...

Esistono mille esempi se cerchi con Google, non c'è bisogno di farne altri

Il problema non è la select ma come estrarre in una variabile il contenuto
se provo in questa maniera non estrae nulla

Dim Str As String
stri = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stri = stringa & "C:\Users\Utente\Documents\Programmi VB6\Programma\Datadb\Esempio.mdb"
 
Set Cn2 = New ADODB.Connection
    Set rs2 = New ADODB.Recordset
 
Cn2.Open stri
rs2.Open "Esempio", Cn2, 3, 3

Str = "select * from Esempio where Campo1 = 1 "
Print Str

Intanto la Select Case non c'entra nulla, io parlo della Select del linguaggio Sql

E poi la Select devi usarla nella Open !