Подставление ряда полей из разных таблиц в зависимости от содержимого другого (ключвого?) поля в форме

Private Sub txtНазвание_AfterUpdate()
'Обновление значения поля - выбор из списка
'--------------------------------------------------------------------------
Dim s As String
Dim v As Variant
On Error GoTo txtНазвание_AfterUpdate_Err
    
'Проверка выбрано ли значение ComboBox через ListIndex
    If Me!txtНазвание.ListIndex <> -1 Then 'Значение ВЫБРАНО
        s = "Код = " & Me!txtНазвание.Column(0)
        'Единицы измерения
        v = DLookup("[Единицы измерения]", "[Список работ]", s)
        Me![Единицы измерения] = v
        'Цена
        v = DLookup("Цена", "[Список работ]", s)
        Me![Стоимость за еденицу] = v
        'Сумма
        Me!Сумма = Round(Nz(v) * Nz(Me!Количевство), 2)
    
    Else 'Значение НЕ ВЫБРАНО
        'Зануляем всё
        Me![Единицы измерения] = Null
        Me![Стоимость за еденицу] = 0
        Me!Сумма = 0
        Me!Количевство = 0   
    End If
 
txtНазвание_AfterUpdate_Bye:
    Exit Sub
 
txtНазвание_AfterUpdate_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: txtНазвание_AfterUpdate", vbCritical, "Error in module Form_АктыСостав"
    Resume txtНазвание_AfterUpdate_Bye
End Sub