[VB6] Ricerca del max in un database

[gigio]

Ciao a tutti e buon lunedì!!
Sto cercando di recuperare il dato di valore maggiore dalla colonna SCHEDA del database admin.dbf.
Utilizzo questo codice:

Set rs = New ADODB.Recordset
SqlStat = "Select Max(SCHEDA) As max_scheda From admin"
rs.Open SqlStat, cn
txtScheda.Text = max_scheda
Call rs.Close

Però non funziona: nella casella di testo txtScheda mi mette sempre 0... Perchè?

Grazie a tutti!!

[Brainjar]

Usa una (sola) delle due istruzioni seguenti :

' 1 ^ Forma contratta
txtScheda.Text = rs!max_scheda

' 2 ^ Forma canonica
txtScheda.Text = rs.Fields("max_scheda").Value

    Set rs = New ADODB.Recordset 
    SqlStat = "Select Max(SCHEDA) As max_scheda From admin" 
    rs.Open SqlStat, cn 

    ' Uso la forma canonica  
    'txtScheda.Text = rs.Fields("max_scheda").Value 

    Call rs.Close

[Brainjar]

    Set rs = New ADODB.Recordset 
    SqlStat = "Select Max(SCHEDA) As max_scheda From admin" 
    rs.Open SqlStat, cn 

    ' Uso la forma canonica  
    txtScheda.Text = rs.Fields("max_scheda").Value 

    Call rs.Close

[gigio]

GRAZIE!!!!!!
FUNZIONA!

Siete fantastici! Riuscite sempre a cavarmi le castagne dal fuoco!