Dim Db As Database
Dim Rs As Recordset
Dim i As Integer
 
Set Db = DBEngine.OpenDatabase("DeineMDB.mdb")
Set Rs = Db.OpenRecordset("Tabelle")
 
With List1
  For i = 0 To .ListCount - 1
    Rs.AddNew
    Rs("Feld") = .List(i)
    Rs.Update
  Next i
End With
 
Rs.Close
Db.Close
Set Db = Nothing