codice:
    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