在Visual BasicVB中连接Access数据库并读取表中数据，通常通过ActiveX Data ObjectsADO实现，这一过程主要包括数据库连接配置与数据读取操作两部分。
一、配置数据库连接
首先需确保VB工程引用ADO库。打开VB工程后，点击“工程”菜单，选择“引用”，在弹出的对话框中勾选“Microsoft ActiveX Data Objects 2.x Library”根据安装版本选择，如2.8，点击“确定”成引用。连接Access数据库需使用连接字符串，根据数据库文件格式.mdb或.accdb稍有差异。对于Access 2003及之前的.mdb文件，连接字符串格式为：`Provider=Microsoft.Jet.OLEDB.4.0;Data Source=文件路径\\数据库名.mdb`；对于Access 2007及之后的.accdb文件，格式为：`Provider=Microsoft.ACE.OLEDB.12.0;Data Source=文件路径\\数据库名.accdb`。其中“文件路径”需替换为数据库文件的实际存储路径，例如`C:\\Data\\StudentDB.accdb`。
成配置后，通过ADO的Connection对象建立连接。代码示例： ```vb Dim conn As New ADODB.Connection conn.ConnectionString = \"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\\Data\\StudentDB.accdb\" conn.Open ```
二、读取表中数据
连接成功后，使用Recordset对象执行SQL查询并读取数据。假设需读取“学生信息”表中的数据，表包含“学号”“姓名”“年龄”字段，可通过SELECT语句查询。创建Recordset对象，执行查询： ```vb Dim rs As New ADODB.Recordset rs.Open \"SELECT * FROM 学生信息\", conn, adOpenStatic, adLockReadOnly ``` 其中，`adOpenStatic`表示静态游标可前后滚动，`adLockReadOnly`设置为只读模式。
通过循环遍历Recordset，获取每条记录的字段值。例如： ```vb If Not rs.EOF Then rs.MoveFirst \'移动到第一条记录 Do While Not rs.EOF \'读取字段值 Debug.Print \"学号：\" & rs.Fields(\"学号\").Value Debug.Print \"姓名：\" & rs.Fields(\"姓名\").Value Debug.Print \"年龄：\" & rs.Fields(\"年龄\").Value rs.MoveNext \'移动到下一条记录 Loop End If ```
读取成后，需关闭Recordset和Connection对象，释放资源： ```vb rs.Close conn.Close Set rs = Nothing Set conn = Nothing ```
以上步骤涵盖了VB连接Access数据库及读取数据的核心流程：通过引用ADO库配置连接环境，使用Connection对象建立数据库连接，借助Recordset对象执行查询并遍历数据，最后关闭对象释放资源。实际应用中，可根据表结构调整SQL语句和字段名称，实现灵活的数据读取需求。