vb如何读取access数据库

在VB中，可以使用ADODB对象来连接和读取Access数据库。以下是一个简单的示例代码：

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
conn.Open

Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM tableName", conn

Do While Not rs.EOF
    MsgBox rs.Fields("columnName").Value
    rs.MoveNext
Loop

rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing

在上面的示例中，首先创建一个ADODB.Connection对象并设置连接字符串，然后打开连接。接着创建一个ADODB.Recordset对象，并使用Open方法执行查询语句。最后使用循环读取Recordset中的数据，并在MessageBox中显示。最后关闭Recordset和连接对象，并将其设置为Nothing释放内存。