Не удалось выполнить DLOOKUP в MS-ACCESS VBA

Question

У меня есть код VBA ниже, но каждый раз, когда я пытаюсь выполнить код VBA, он выдает ошибку при [Dlookup]. Я часами пытался правильно настроить Dlookup, но безуспешно. Буду признателен, если вы можете взглянуть на это и дать мне некоторые идеи или решения. Спасибо.

Sub Quality()
Dim Sql As String    

StrDate = InputBox("YYYY/MM/DD")
Sql = "Insert Into Roster_QC Select dbo_Recipients.[UniqueID] AS [UID], 
DLookUp("[Address1]", "dbo_NamesAndAddresses",  "[PersonID]=' " & [UID] & " ' AND [PrimaryAddress]=1" ) AS [Address]…FROM…

WHERE…ORDER BY

CurrentDb.Execute Sql
DoCmd.OpenReport "RosterQC_Report", View:=acViewPreview
End Sub

Кроме того, я изменил Dlookup, как показано ниже

DLookUp(""[Address1]"", ""dbo_NamesAndAddresses"",  ""[PersonID]='" & [UID] & "' AND [PrimaryAddress]=1"" ) AS Address

Это вызывает ошибку - [UID] External Name not defined.

Answer 1

Спасибо @ June7, присоединение к dbo_Recipients и dbo_NamesAndAddresses устранило мою проблему.