Альтернатива для DLookUP для линкованных таблиц

Public Function GetRec(NameOfField As String, NameOfTable As String, Optional Where As String = "")
Dim r As Recordset
Dim sql As String
Dim result
On Error GoTo 2
sql = "SELECT " & NameOfField & " FROM " & NameOfTable
If Len(Where) > 0 Then sql = sql & " WHERE (" & Where & ")"
Set r = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
If r.EOF And r.BOF Then GoTo 1
r.MoveFirst
result = r.Fields(NameOfField)
 
1:
r.Close
Set r = Nothing
GetRec = result
 
2:
 GetRec = "Не найдено!"
    Exit Function
End Function

Dim dicCache

Public Function GetRec(NameOfField As String, NameOfTable As String, Optional Where As String = "", Optional Cache As Boolean = True)
  Dim r
  Dim sql As String
  
  If Cache Then
    If IsEmpty(dicCache) Then
      Set dicCache = CreateObject("scripting.dictionary")
      dicCache.CompareMode = 1
    End If
    
    If Not dicCache.Exists(NameOfTable) Then
      Dim dic_Keys
      Set dic_Keys = CreateObject("scripting.dictionary")
      dic_Keys.CompareMode = 1
      dicCache.Add NameOfTable, dic_Keys
    ElseIf dicCache(NameOfTable).Exists(Where) Then
      GetRec = dicCache(NameOfTable)(Where)
      Exit Function
    End If
  End If
  
  sql = "SELECT [" & NameOfField & "] FROM " & NameOfTable
  If Len(Where) > 0 Then sql = sql & " WHERE (" & Where & ")"
 
  On Error GoTo sqlError
 
  Set r = CurrentProject.Connection.Execute(sql)
 
  On Error GoTo noField
 
  If r.EOF Then GetRec = Empty Else GetRec = r.Fields(NameOfField).Value
  r.Close
  Set r = Nothing
  
  If Cache Then dicCache(NameOfTable).Add Where, GetRec    
  
  Exit Function
noField:
  r.Close
  Set r = Nothing
sqlError:
  GetRec = "Ошибка! " & Err.Description
End Function

sql = "SELECT " & NameOfField & " FROM " & NameOfTable
....
If Len(Where) > 0 Then sql = sql & " WHERE (" & Where & ")"
Set r = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
.....

Dlookup("NameOfField","NameOfTable","ctl=" & условие)