VB6 Problemi su query

[binbum]

Salve a tutti!
Spesso mi trovo a combattere su un problema legato all'output di una query..faccio un esempio:

SQL = "SELECT nome from anagrafica

Set Rs = CreateObject("ADODB.Recordset")
Rs.Open SQL, ConnAdo
If Err <> 0 Then
Screen.MousePointer = vbDefault
MsgBox Error, vbCritical
On Error GoTo 0
Exit Function
End If

Text1=RS(0)

La tabella su cui faccio la query è vuota e quindi quando metto l'output nel campo testo mi dà errore,ho provato a fare un controllo sul RecordCount ma è lo stsso...cosa accade?

Grazie 1000 per qualsiasi aiuto!

[Brainjar]

Come apri la connessione ?
Per poter testare il RecordCount, uno dei modi è quello di utilizzare
un cursore lato client.
Tra l'altro, hai postato solo parte della funzione e non si capisce
bene cosa vuoi fare. Usa poi i tag CODE, in modo che il codice sia
più leggibile.
Posta la funzione completa con, in più, la parte dove imposti ed
apri la connesione.

Ciao,