With oBC
      Set .DataSource = ADOrs
        Do While Not ADOrs.EOF
        Wert = ADOrs!Anfang
        Set itemx = lvwZeit.ListItems.Add(, , Trim$(Wert))
          Wert = ADOrs!Ende
          itemx.SubItems(1) = Wert
          Wert = ADOrs!Arbeitszeit
          itemx.SubItems(2) = Wert
          Wert = ADOrs!Datum
          itemx.SubItems(3) = Wert
          Wert = ADOrs!Kategorie
          itemx.SubItems(4) = Wert
        ADOrs.MoveNext
        Loop
    End With

mfg
peacemaker

e-mail: vbarchiv@web.de