vb access 查询问题

Dim a As StringDim b As StringDim c As StringDim d As String      Adodc1.Refresh   Adodc1.Recordset.Find "类型='" & Text5.Text & "  '", , adSearchForward, 1  If Adodc1.Recordset.EOF Then    MsgBox "无次记录", , "提示"    Text4.Text = ""  Else  Do Until Adodc1.Recordset.EOF   a = Adodc1.Recordset.Fields("金额").Value   b = Adodc1.Recordset.Fields("日期").Value   c = Adodc1.Recordset.Fields("详情").Value   d = Adodc1.Recordset.Fields("类型").Value   Text4.Text = Text4.Text & Space(2) & "消费日期:" & b & Space(2) & "金额：" & a & "元" & Space(2) _   & d & "详情：" & c & vbCrLf & vbCrLf  Adodc1.Recordset.MoveNext  Loop  End If为什么一直输出，全部记录

************************************************************************

你都Do Until Adodc1.Recordset.EOF了还不是全部的？
谢谢，那怎样才能选择（也就是按类型输出）的输出
Adodc1.Recordset.Find "类型='" & Text5.Text & "  '", , adSearchForward, 1这个不就是指定类型了么？你上一个帖子还没采纳呢