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個。一個支持循環；一個支持【更新】。應該沒問題。請試一下吧！祝成功！