Dim rs as recordset
Dim db as Database
Dim i as integer
 
   i = 32000
   Set db = OpenDatabase("PFAD ZUR DATENBANK")
   Set rs = db.openRecordset("Select splate from tabelle")
   If rs.BOF = False Then
      While Not rs.EOF
         i = iif(cint(rs.fields(0).value) < i, cint(rs.fields(0).value, i)
         rs.MoveNext
      Wend
      rs.Close
   End If
   Set rs = Nothing
   Msgbox i