求助：Data.Recordset.FindFirst 与Ado的转换？

Question

小弟新学vb呢，请问一个问题：
  
  Data1.Recordset.MoveFirst
    While Not Data1.Recordset.EOF
     Dim FindString As String
       Text1.Text = Trim(Text1.Text)
        FindString = "日期=" + "#" + Text1.Text + "#"
       Data1.Recordset.FindFirst FindString
     Data1.Recordset.Delete
     Data1.Recordset.MoveNext
   Wend
我想把原来的data与dbgrid，换成 ado与datagrid绑定，可是Data1.Recordset.FindFirst怎么转成ado啊？ado中只有find 没有 findfirst啊？

Answer 1

ADO中的指针默认是指向第一条记录，当想取下条时，直接 MoveNext！

Answer 2

leongwong(leong)  谢谢。  你的意思是直接  Data.RecordSet.FindFirst 改为 Ado.RecordSet.Find就行吗？  可是我按这个改，为什么运行到  delete的时候告诉我读取最后一条数据的时候出错？