'.. FlexGridInhalt in ListBox
Dim i As Long
With qdNew
  If .RecordCount > 0 And .RecordCount < 32000 Then
    .MoveFirst
    '... For i = 0 To FlexGrid.Cols - 1
      Do While Not .EOF
        List1.AddItem .Fields(0) &  " , " & .Fields(1)
      '... List1.AddItem .Fields(i)
        .MoveNext
      Loop
    '...Next
  End If
End With