在VBA中连接到Access的`.mdb`数据库，你可以使用`ADO`（ActiveX Data Objects）对象。以下是一个示例代码，演示了如何使用VBA连接到`.mdb`数据库，并执行一个简单的查询。
```vba
Sub ConnectToMDB()
Dim conn As Object
Dim rs As Object
Dim strConnection As String
' 创建ADO连接对象
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
' 设置连接字符串
' 注意：你需要将以下路径替换为你的mdb文件的实际路径
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:pathtoyourdatabase.mdb;"
' 打开连接
conn.Open strConnection
' 执行查询
rs.Open "SELECT FROM YourTableName", conn
' 遍历记录集
While Not rs.EOF
Debug.Print rs.Fields(0).Value & " " & rs.Fields(1).Value
rs.MoveNext
Wend
' 关闭记录集和连接
rs.Close
conn.Close
' 清理对象
Set rs = Nothing
Set conn = Nothing
End Sub
```
在上面的代码中，你需要将`strConnection`变量中的路径替换为你的`.mdb`文件的实际路径。同时，将查询语句中的`YourTableName`替换为你想要查询的表名。
此代码段首先创建了一个ADO连接对象和一个记录集对象。然后，它设置了连接字符串，该字符串指定了数据库的路径和提供者。之后，它打开连接，执行查询，并遍历结果集，打印每条记录的内容。它关闭记录集和连接，并释放对象。
请确保你的VBA环境已经启用了对ADO的引用。在VBA编辑器中，可以通过工具 -> 引用来添加引用，选择“Microsoft ActiveX Data Objects 2.8 Library”或“Microsoft ActiveX Data Objects 2.8”。
