Μεταφορά περιεχομένου λίστας σε σύνθετο πλαίσιο άλλης φόρμας

[Meteora]

Καλημέρα στην κοινότητα !

Να σε προτείνω τον εξής κώδικα :

 
Private Sub Εντολή22_Click()
 
    Dim db As Database
    Dim rst As Recordset
    Set db = CurrentDb
    Set rst = db.OpenRecordset("tblPaper")
    With rst
        .AddNew
        !Lastname = Me!listbox1.Column(0, 0)
        .Update
        .Close
    End With
    Set rst = Nothing
    Set db = Nothing
 
End Sub

Όμως ! Aυτός διαβάζει ΜΟΝΟ την πρώτη εγγραφή του ListBox1. Φτιάξε ένα βρόχο που να διαβάζει και να καταγράφει στον πίνακα, όλες τις εγγραφές που περιέχονται στο ListBox1.
Καλή συνέχεια. Αν δεν μπορείς τα ...ξαναλέμε ! Μέχρι τότε
Νίκος Δ.

ΥΣ Διαγραφή δεν πρέπει να γίνεται στις εγγραφές του listBox1 ;