access vba使用ADO查询一对一关系表字段

Access VBA（Visual Basic for Applications）通过ADO（ActiveX Data Objects）库可以连接到数据库并执行SQL查询。如果你有一个一对一的关系表，比如一个"员工"表对应一个"部门"表，每个员工只属于一个部门，你可以这样做：

首先，你需要设置连接到数据库的对象，例如：

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

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=<your_database.accdb>;Persist Security Info=False;"

然后，你可以使用SQL SELECT语句查询一对一关系，例如查找特定员工的部门信息：

Dim sql As String
sql = "SELECT DepartmentName FROM Departments WHERE DepartmentID = (SELECT DepartmentID FROM Employees WHERE EmployeeID = <employee_id>)"

Set rs = New ADODB.Recordset
rs.Open sql, conn
If Not rs.EOF Then
    Debug.Print "员工的部门名称：" & rs("DepartmentName")
End If
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

在这个例子中，`<your_database.accdb>`是你的Access数据库文件名，`<employee_id>`是要查询的具体员工ID。