vb循环数据库数据

‘壹’ VB6.0绋嫔簭:鏁版嵁搴扑腑镄勬暟鎹鍦ㄦ枃链妗嗕腑寰鐜鏄剧ず,镐庝箞瀹炵幇

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select name from 娴嬭瘯"
Adodc1.Refresh
Timer1.Interval = 10000

End Sub

Private Sub Timer1_Timer()
Text1 = Adodc1.Recordset.Fields("name")
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst

End Sub

‘贰’ vb 怎么 循环更新 Access数据库里某列所有的元素

：要是2个表；（1。数据提供表）（2。同学录）。请改变一下。
把数据集定义为2个。一个支持循环；一个支持【更新】。应该没问题。请试一下吧！祝成功！