Sub Speichern()
Dim count As Integer
Dim Pfad1, Name1 As String
 
    count = lvwEinlesen.ListItems.count
 
    ProgressBar1.Max = count
 
    For I = 1 To count
      ADOrs.AddNew
      Pfad1 = lvwEinlesen.ListItems(I).SubItems(1)
      Name1 = lvwEinlesen.ListItems(I).SubItems(2)
      DoEvents
      ADOrs!Pfad = Pfad1
      ADOrs!Name = Name1
      ProgressBar1.Value = ProgressBar1.Value + 1
    Next I
 
    ADOrs.Save
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de