Dim i As Integer
 
dbFile = "\\pdc\company\l-office\loffice\daten\termine.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("Datenbank1")
 
i = 0
Do While i < List1.ListCount
  If List1.Selected(i) Then
    ' Neuen Datensatz hinzufügen
    Tabelle.AddNew
    Tabelle("Zu erledigen") = txtaufgabe.Text
    Tabelle("Datum") = lblDatum
    Tabelle("Firmenname") = List1.Text
    Tabelle("Kuerzel") = lblkuerzel
    Tabelle.Update
 
    List1.RemoveItem i    
  Else
    i = i + 1
  End If
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de