With Adodc1.Recordset If .RecordCount > 0 Then Do While .EOF = False View_tfdata .MoveNext Loop End If End With 如何把此段代码改成用ADODB