gennemløbe Alle rækker i en Listbox

Sub gemListe()
    With Me.ListBox1
        For ræk = 0 To .ListCount - 1
        rækkeværdi = .List(ræk)
        ......
        ......
        Next ræk
    End With
End Sub

where is the data comming from in the first place?

Oops, that should have been a comment :o)

ok. Dette virkede.

Dim i As Integer
DoCmd.SetWarnings False
For i = 1 To LeverandorListe.ListCount - 1
    DoCmd.RunSQL ("INSERT INTO VarenummerValg (Varenummer, Varetekst) VALUES('" & LeverandorListe.Column(0, i) & "', '" & LeverandorListe.Column(1, i) & "')")
Next
DoCmd.SetWarnings True

Supertext, hvis du besvare får du pointene

Ok - et svar...