With MSFlexGrid1
  .MaxRows=0 
 
  SQL="Select * from Tabelle" 
  set rs = db.OpenRecordset(SQL, dbOpenSnapshot) 
 
  Do 
    .Rows = .Rows +1 
    .Row = .Rows - 1
    .Col = 1 
    .Text = rs("Name") 
    .Col = 2 
    .Text = rs("Vorname") 
. 
. 
. 
    rs.MoveNext 
    i = i +1 
  Loop Until rs.EOF or i >= txtMaxDatensätze 
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de