Gemme fra list box til tabel

Hejsa

Jeg prøver at gemme i en tabel fra en formular. Det der skal gemmes afhænger hvad der er valgt i en list box. Det virker hvis jeg kun vælger 2 felter, men hvis jeg vælger flere siger den: Antallet af forespørgselsværdier og destinationsfelter er ikke det samme.

  Dim I As Integer
   
    DoCmd.RunSQL "DELETE FROM Km_enkeltvis WHERE Tur_nummer =" & [Forms]![KM_hoved]![Tur_nummer]
   
    For I = 0 To (Personer_i_bilen.ListCount) - 1
 
            If Personer_i_bilen.Selected(I) = True Then
            Personlig = Personer_i_bilen.Column(0, I)
           
           
            KM_enkeltvis_vaerdi = ([KM_samlet] / [Personer_i_bilen].ItemsSelected.Count)
           
           
   
            DoCmd.SetWarnings False

            DoCmd.RunSQL "Insert Into [Km_enkeltvis] ( [Person], [KM_enkeltvis], [Tur_nummer] ) Select  Personlig , " & Me![KM_enkeltvis_vaerdi] & ", " & Me![Tur_nummer_vaerdi] & ""
            DoCmd.SetWarnings True
            End If
    Next I