动态存储list1中数据

Question

打开窗体后，原本的list1列表框是空的。我按下某个按钮，列表框里动态的增加一些值(这个功能已经完成)
我现在希望达到的要求是：我不需要增加一个存储按钮，而是一旦列表框中有新的项，就把这项填入数据库(列表的项是简单逐个增加的，不会出现动态删除，或修改值的情况)

Answer 1

你是怎么添加到list1中的呢
在你向list1中添加纪录的同时添加到数据库不就完了吗

Answer 2

我添加到list1的语句是放在模块里的，但是如果我在模块里加上如下语句：
Data1.Recordset.AddNew
Data1.Recordset.Fields(1) = CStr(Hex(DB(I).Value))
Data1.Recordset.Fields(2) = Now()
Data1.Recordset.Update
就不能编译，提示变量未定义；如果我加data组件，那么这个组件加到了form1窗体中，而不是加到模块里