حفظ وقرائة اللسيت فيو إلى الداتا أكسس

استخدامت الكود التالي لحفظ وقرائة اللسيت فيو إلى الداتا أكسس وحصلت على إيرور:

الكود لحفظ الليست فيو للداتا وفيه إيرور كما هو مبين في الصورة المرفقة:

private sub button7_click(byval sender as system.object, byval e as system.eventargs) handles button7.click
        ' on error resume next
        dim strsql as string

        dim cn as adodb.connection, rs as adodb.recordset
        cn = new adodb.connection

        cn.open("provider=microsoft.jet.oledb.4.0;data source=" & my.application.info.directorypath & "\new.mdb;persist security info=false")
        rs = new adodb.recordset
        strsql = "select * from table1"
        rs.open(strsql, cn, adodb.cursortypeenum.adopenstatic, adodb.locktypeenum.adlockoptimistic)

        dim itm as listviewitem
        for each itm in listview1.items
            rs.addnew()
            rs.fields("aaa").value = itm.text
            rs.fields("bbb").value = itm.subitems(1).text
            rs.fields("ccc").value = itm.subitems(2).text
            rs.fields("ddd").value = itm.subitems(3).text
            rs.fields("eee").value = itm.subitems(4).text
            rs.update()
        next

    end sub

الكود لقرائة الليست فيو من الداتا اكسس (لم يكتمل) الرجاء إكماله حيث أنه لا يعبأ "subitems

private sub button6_click(byval sender as system.object, byval e as system.eventargs) handles button6.click
        'dim strconn as string
        dim strsql as string
        dim cn as adodb.connection, rs as adodb.recordset
        cn = new adodb.connection
        cn.open("provider=microsoft.jet.oledb.4.0;data source=" & my.application.info.directorypath & "\new.mdb")
        rs = new adodb.recordset

        strsql = "select * from table1 order by numberr asc"

        rs.open(strsql, cn)

        with rs
            do while not .eof
                dim itmx as listviewitem
                itmx = listview1.items.add(.fields("aaa").value)
                'itmx.text = .fields("bbb").value & ""
                'itmx.subitems(1) = .fields("bbb").value & ""
                ' itmx.subitems(2).text = .fields("ddd").value & ""
                ' itmx.subitems(3).text = .fields("eee").value & ""
                .movenext()
            loop
        end with

        rs.close()
        rs = nothing
    end sub