<code>Dim Tabelle As Recordset
Dim lRow As Long
Dim lRows As Long
 
Set Tabelle = Db.OpenRecordset("Adressen")
 
lRow = Tabelle.RecordCount  <font color=green>' Anzahl Datensätze = Anzahl 
' Zeilen</font>
lRow = 1  <font color=green>' Beginn mit Zeile im Felxgrid</font>
 
FlexGrid1.Rows = lRow
 
While Not Tabelle.Eof
  With FlexGrid1
    .Row = lRow
    .Col = 0: .Text = Tabelle("Name")
    .Col = 1: .Text = Tabelle("Vorname")
    .Col = 2: .Text = Tabelle("Telefon")
  End Width
  lRow = lRow + 1
  Tabelle.MoveNext
Wend
Tabelle.Close
Set Tabelle=Nothing</code>