vb里，怎么用ado读取mdb数据库？

'连接字串

Adodc1.ConnectionString = "Provider=MSDASQL.1Password=密码，无密码时为空Persist Security Info=TrueData Source=MS Access DatabaseInitial Catalog="yourDatabasePath.mdb"

'开始查询

Adodc1.RecordSource = "select * from table"'这里是你的sql语句

Adodc1.Refresh

debug.print Adodc1.Recordset.Fields(你的字段名或者字段index)

当Adodc1.Recordset记录条数为多条时还可通过MoveFirst,movenext,moveprevious,movelast==来定位，定位时需要检查Bof或EOF属性看是否已到第一笔或已到最后一笔。

m_pRecordset.CreateInstance(ADODB.Recordset)

m_pRecordset-Open(_bstr_t(str),_variant_t((IDispatch*)con-m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText)

if (m_pRecordset-GetPageCount()!=0) 数据集中记录为0，则无法读取。{m_pRecordset-MoveFirst()指针移到第一个记录位置

while (!m_pRecordset-adoEOF) 数据集中记录指针未指向最后记录时{_variant_t user_id定义user_id

CString s_id定义s_id

user_id=m_pRecordset-GetCollect(USER_ID)

//***********读取出参数***************

s_id= (LPCTSTR)_bstr_t(user_id)

m_username.AddString(s_id)

)

---