DB-Tabelle aus Listbox füllen

Private Sub btnNeu_Click()
On Error GoTo Er

Dim i As Integer
For i = 0 To lstXXX.ListCount - 1
DoCmd.RunSQL "INSERT INTO dbo.XXX (xxx) VALUES ('" & lstXXX.Column(0, i) & "');"
Next i

Ex: Exit Sub
Er: MsgBox Err.Description
Resume Ex
End Sub