求助！！Help~~~

Question

谁可以帮我作个事列！
关于listview问题，添加，保存数据（带数据库的）添加后数据可与界面同步，也就是添一条listview显示一条急需要，谁可以帮助偶？？？========================================
    dim list as listitem
    dim aa as long
    
    '保存信息
    with adodc1.recordset
        aa = .fields("data").value
        '*把增加的信息添加到listview控件
        '*以保持界面与数据的同步...
        set lstitem = frmmain.lv.listitems.add(, "k_" & aa, trim(dtpicker1.value))
        lstitem.subitems(1) = trim(cmbname.text)
        lstitem.subitems(2) = trim(txtname.text)
        lstitem.subitems(3) = trim(txtdimen.text)
        lstitem.subitems(4) = trim(txtvalue.text)
        lstitem.subitems(5) = trim(txtcodify.text)
        lstitem.subitems(6) = trim(cmbaddress.text)
        lstitem.subitems(7) = trim(cmbjingshouren.text)
        lstitem.subitems(8) = trim(cmbaddress1.text)
        lstitem.subitems(9) = trim(cmbjingshouren1.text)
        lstitem.subitems(10) = trim(dtpicker2.value)
        lstitem.tag = cstr(aa)
        .addnew
        .fields("data") = dtpicker1.value
        .fields("number") = dtpicker2.value
        .fields("dimen") = txtdimen.text
        .fields("value") = txtvalue.text
        .fields("guestname") = txtname.text
        .fields("homename") = cmbname.text
        .fields("qubaogaodidian") = cmbaddress.text
        .fields("jingshouren") = cmbjingshouren.text
        .fields("songbaogaodidian") = cmbaddress1.text
        .fields("jingshouren1") = cmbjingshouren1.text
        .fields("codify") = txtcodify.text
        .update
    end with
=============================================
以上是保存后的代码，可是出现错误说是：：
        aa = .fields("data").value实是错误”3021“
eof或bof中有一个是”真“，或者当前的记录已被删除，所需的操作要求当前一个记录。请问是什么原因？该怎么解决？
还有没更好点的办法，，谢谢！！！
急需要