'....
For Each oField In oRecordset.Fields
  If oItem Is Nothing Then
    ' ein neues ListItem erzeugen
    Set Li = ListView1.ListItems.Add
    Li.Key = oRecordset.Fields("ID").Value & "x"
    Li.text  =  oField.Value
  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)