Zo werkt het wel
dim iMax as integer, iTemp as integer, iNamed1 as String
iMax = 0
db.MoveFirst
While Not db.EOF
iTemp = db.vkeeper
if iTemp > iMax then iNamed1 = db.Named
if iTemp > iMax then iMax = iTemp
db.MoveNext
Wend
Field1.Text=iNamed1
Nu eens kijken of we er dan ook de een na grootste uit kunnen krijgen