如何在vb中逐条读取每个数据库字段的记录

在"工程"----"部件"-----添加"Microsoft ADO Data Control 6.0(OLEDB)"
然后把这个控件给拖到窗体上

Private Sub Command1_Click()
Text1 = Adodc1.Recordset.Fields("这里写字段的名称").Value
Adodc1.Recordset.MoveNext 'MoveNext 下一条 MovePrevious上一条 MoveLast最后一条 MoveFirst第一条.

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=这里填写你的数据库的路径及后缀名;Persist Security Info=False"
Adodc1.Refresh
Adodc1.RecordSource = "select * from 这里填写表的名称"

End Sub

如果你还想知道一些关于adodc的使用给我发消息.我给你说一些基本用法