Как вставить несколько элементов (все элементы) из списка в базу данных (ms. access)

---

всем привет,

Я новичок в программировании, учусь только по книгам и поискам в интернете.
В настоящее время я создаю простую программу для перечисления имени и пути всех файлов в моей папке.
Я получаю небольшую проблему, которая меня смущает, чтобы найти, где ошибка.
проблема в том, что я получаю ошибку типа "индекс находился за пределами массива." Но когда я вижу, что база данных была успешно заполнена, но только 100 строк / элементов
мой вопрос заключается в том, как вставить несколько элементов(более 1000 элементов) в listbox в базу данных(ms.access)?. спасибо :)
извините за мой плохой английский :)

Что я уже пробовал:

Private Sub itemsimport()
if conn.State = ConnectionState.Closed Then conn.Open()
        Dim sql As String = "INSERT INTO data_lagu(title, singer, kategori, novocal, path_lagu) VALUES (@TITLE, @SINGER, @KATEGORI, @NOVOCAL, @PATH)"
        For Each myitem As String In ListBox2.SelectedItems
            Dim cmd As New OleDbCommand(sql, conn)
            Dim lineArray() As String = myitem.Split("#")
            cmd.Parameters.AddWithValue("@TITLE", lineArray(0))
            cmd.Parameters.AddWithValue("@SINGER", lineArray(1))
            cmd.Parameters.AddWithValue("@KATEGORI", lineArray(2))
            cmd.Parameters.AddWithValue("@NOVOCAL", lineArray(3).Replace(".MPG", ""))
            cmd.Parameters.AddWithValue("@PATH", myitem)
            cmd.ExecuteNonQuery()
        Next
        MsgBox("success")
        conn.Close()
        loaddata()
End Sub

---