'......
oItem=false
For Each oField In oRecordset.Fields
  If oItem =false Then
    ' ein neues ListItem erzeugen
    Set Li = ListView1.ListItems.Add
    Li.Key = oRecordset.Fields("ID").Value & "x"
    Li.text  =  oField.Value
    oItem=true
  Else
     Li.SubItems(.ColumnHeaders.Item(oField.Name).Index - 1) = IIf(Not IsNull( _
       oField.Value), oField.Value, "")
  End If
Next
'.............

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)