在VB中连接Access数据库的方法是使用ADODB(ActiveX Data Objects)库。以下是连接Access数据库的步骤:

在VB中创建一个新的项目。在VB中选择“项目”菜单,然后选择“引用”。在“引用”对话框中,选择“Microsoft ActiveX Data Objects x.x Library”,然后点击“确定”。在VB代码中引入ADODB库:

    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()

现在你可以执行SQL查询或操作Access数据库了。例如,使用以下代码执行一个查询:

    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数据库,它的使用方法与上述类似。