VB6 seleziona valore

[ddies]

Beh quando vai a fare la select nel db fai una:

set record=db.execute("SELECT MAX(NomeCOlonna) FROM NomeTabella")

e per l'altro o fai una:

 select nomecolonna from tabella

e poi:

dim Max as integer, Ind as integer
Max=0
ind=0
while not record.eof
  if val(mid(record(ind),1,3))>Max Then
    Max=val(mid(record(ind),1,3))
  end if 
  ind=ind+1
  record.MoveNext
wend

Oppure se il db è access:

SELECT MAX(VAL(MID(NOmeCampo,1,3))) FROM NomeTabella