一个关于Listview的问题

Question

Private Sub Data1_Validate(Action As Integer, Save As Integer)
　Set itmx = ListView1.ListItems.Add(, , Data1.Recordset.Fields("Au_ID"))
　itmx.SubItems(1) = Data1.Recordset.Fields("Au_ID")
　itmx.SubItems(1) = Data1.Recordset.Fields("Author")
End Sub
我用DATA控件连接了一个数据库　但是运行后只能显示第一条数据　请问这是为什么？

Answer 1

这样当然不行，你要一条一条加到listview里面。
do until data1.recordset.eof=true     listview1.listitem.add ......loop

Answer 2

Private Sub Form_Load()
 Do Until Data1.Recordset.BOF = True
  
  itmx.SubItems(1) = Data1.Recordset.Fields("Author")
  Me.Data1.Recordset.MoveNext
Loop
End Sub

Answer 3

谢谢各位的回答
我按照上面的做　运行后又出现错误（“no current record”）　请问这是为什么？　
是数据库有问题吗？还是程序的问题？