MinMax

Dim Rs as Recordset
Set Rs=db.OpenRecordset("SELECT MIN(Valore) AS Minimo FROM tabella")
'Il recordset risultante contiene un solo record e un solo campo