[VB6] Ricerca del max in un database

[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