With Adodc1.RecordsetIf .RecordCount > 0 ThenDo While ADODB.EOF = FalseView_tfdata.MoveNextLoopEnd IfEnd With如何把此段代码改成用ADODB