I am trying to add all the contents from a ListBox to my Access Data Base. Right now, only the last item in my ListBox is written to my database.

Code:
Dim iX As Integer

Dim myArr()
        
        For iX = 0 To lstInk2.ListCount - 1
            lstInk2.ListIndex = iX
            ReDim Preserve myArr(iX)
            myArr(iX) = lstInk2.Text
        Next iX
        
        For iX = LBound(myArr) To UBound(myArr)
            deMain.rsThermo!T_PMS = myArr(iX)
            deMain.rsThermo.Update
        Next iX
thank you for the help!