VB数据库中的指针如何移到下一条记录？

Private Sub Form_Load()

'数据库初始化

'连接数据库,App.Path 为当前目录,数据库.mdb为Access数据库,按实际更改,其余的不能更改

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\数据库.mdbPersist Security Info=False"

Adodc1.RecordSource = "表1" '表1 为数据库里的一个表,按实际更改

Adodc1.Refresh '刷新数据

Adodc1.Recordset.MoveNext

End Sub

一定行!你是用adodc来连数据库的吧

可以使用ADO DATA控件Recordset属性的MoveNext方法

例如：

Do Until Data1.Recordset.Eof

Data1.Recordset.MoveNext

Loop

也可以利用Timer事件

---