使用listbox碰到的问题

Question

有一text3，一个list1
根据text3中输入的内容，点击command5在数据库中查询出数据后添加到list1现在问题是：
因为查询出的数据不止一条，但是添加到list1的只有一条。以下是代码
Private Sub Command5_Click()
List1.Clear
 QUERY_tube_No (Trim(Text3))
 rs1.MoveLast
If rs1.EOF And rs1.BOF Then
   MsgBox Text3 + ("的套管记录不存在!"), 49, "Notice"
   Exit Sub
End IfWhile Not rs1.EOFList1.AddItem rs1("tube_no") & " " & rs1("tube_coloring") & " " & rs1("tube_core") & ""
rs1.MoveNext请各位帮忙分析一下  谢谢

Answer 1

While Not rs1.EOF上面加一句：
rs1.Movefirst