access数据库实例求VB中使用ADO连接Access数据库实例，最好带注释，功能越多越好，多谢

求VB中使用ADO连接Access数据库实例，最好带注释，功能越多越好，多谢

1.用ADO就够了，转到其他电脑上也不用改变代码了， 2.不需要设置ODBC,需要引用ADODB,步骤：工程->引用， 选择Microsoft Activex Data Objects 2.5 Library 给你个代码 Sub Form1_Load() Dim Conn As ADODB.Connection Dim Rs As ADODB.Recordset Set Conn=New ADODB.Connection Dim Rs=New ADODB.Recordset Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "db1.mdb;Persist SecuritInfo=False" Conn.Open '连接成功，这里写其他代码，如： dim str as string str="select * from table" Rs.Open str,Conn msgbox Rs.Fileds("name") End Sub