在VB中连接Access数据库，可以使用ADO.NET来实现。以下是一种常见的连接Access数据库的方法：

1. 导入必要的命名空间：

Imports System.Data.OleDb

2. 创建数据库连接对象：

Dim connStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb"
Dim conn As New OleDbConnection(connStr)

注意，上述代码中的C:\path\to\your\database.mdb需要替换为你的Access数据库文件的路径。

3. 打开数据库连接：

conn.Open()

4. 执行SQL查询或操作数据库：

Dim sql As String = "SELECT * FROM TableName"
Dim cmd As New OleDbCommand(sql, conn)
Dim reader As OleDbDataReader = cmd.ExecuteReader()

While reader.Read()
    ' 处理每一行数据
    Dim value As String = reader("ColumnName").ToString()
    ' ...
End While

reader.Close()

上述代码中的TableName和ColumnName需要替换为你的表名和列名。

5. 关闭数据库连接：

conn.Close()

这是一个简单的连接Access数据库的示例代码，你可以根据自己的需求进行修改和扩展。