VB中怎么用代码调用ACCESS数据库中的数据？

添加adodc控件
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "\stodata.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from DLB"
Adodc1.Refresh追问

再调用数据呢

追答

这就看你需求了，如果要显示表的话，再添加一个DataGrid控件，只是做登录车工序的话
Adodc1.Recordset.Fields(0)‘数据库表的第一列（可为登录名）
Adodc1.Recordset.Fields(1) ’数据库表的第二列（可为密码）
如果只是显示数据库表的某一列。或者几列，如下代码
If Not Adodc1.Recordset.EOF Then '//抛出异常
For i = 1 To Adodc1.Recordset.RecordCount Step 1 '//按记录集合循环
List1.AddItem Adodc1.Recordset.Fields("name")‘name 字段
Adodc1.Recordset.MoveNext '//游标下移
Next i
End If

本回答被网友采纳