在VB中连接Access数据库的方法是使用ADODB(ActiveX Data Objects)库。以下是连接Access数据库的步骤:
Imports ADODB
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb"
conn.Open()
Dim rs As New ADODB.Recordset
rs.Open("SELECT * FROM TableName", conn)
Do Until rs.EOF
' 处理查询结果
rs.MoveNext()
Loop
rs.Close()
conn.Close()
conn.Close()
请注意,以上代码示例中的连接字符串是使用Microsoft Access 2016的ACCDB文件的示例。你需要根据你的实际情况修改连接字符串中的数据库路径和文件名。
另外,你也可以使用OleDbConnection类连接Access数据库,它的使用方法与上述类似。