Нужна помощь с текстом кода в Access (для выборки и обновления таблицы)

Private Sub bUpd2_Click()
On Error GoTo err1
'открыть база
Dim src As DAO.Recordset
Set src = CurrentDb.OpenRecordset("база", dbOpenSnapshot)
 
'открыть Поликлиника
Dim dst As DAO.Recordset
Set dst = CurrentDb.OpenRecordset("Поликлиника", dbOpenDynaset)
 
Dim s$
'в цикле по записям база
Do While Not src.EOF
 
'строка критерия поиска по ключевому полю
s = "[Страна]='" & src("Страна") & "' AND & "[Название Поликлиники]='" & src("Название поликлиники") & "' AND " & "[Название города]='" & src("Название города") & "' & "'"
 
'ищем в приемнике
dst.FindFirst s
If Not dst.NoMatch Then
'нашли - обновляем значения остальных полей
dst.Edit
dst("[тип улицы]") = src("[тип улицы]")
dst("[название улицы]") = src("[название улицы]")
dst("[номер дома]") = src("[номер дома]")
dst.Update
End If
src.MoveNext
Loop
MsgBox "OK", vbInformation
Exit Sub
err1:
MsgBox Error, vbCritical
Exit Sub
End Sub

Private Sub bUpd2_Click()
Dim sq$
sq = "UPDATE Поликлиника INNER JOIN " & _
             "база ON Поликлиника.[Страна] = база.[Страна] And " & _ 
             "Поликлиника.[Название поликлиники] = база.[Название поликлиники] And " & _
             "Поликлиника.[Название города] = база.[Название города] " & _
     "SET Поликлиника.[тип улицы] = база.[тип улицы], " & _
         "Поликлиника.[название улицы] = база.[название улицы], " & _
         "Поликлиника.[номер дома] = база.[номер дома]"
CurrentDb.Execute sq
End Sub

Loop
    MsgBox "OK", vbInformation
    Exit Sub
err1:
    MsgBox Error, vbCritical
    Exit Sub
End Sub

  Dim sq$, sr$
  sr = "" 'при необходимости поместить перечень полей, по которым нужна сортировка
  sq = "SELECT Страна, Город, Код, ФИО, [Дата рождения], Пол, " & _
       "Специальность, [Дополнительная специальность] FROM ВИбаза WHERE True"
  sq = sq & " And Страна=" + FDynVal(Me!СписокСтрана1.Value) & _
            " And Город=" + FDynVal(Me!СписокГород1.Value)
  If Len(sr) > 0 Then sq = sq & " ORDER BY " & sr
  CurrentDb.QueryDefs("УниверсальныйЗапросПростой").SQL = sq
  DoCmd.OpenQuery "УниверсальныйЗапросПростой"

Public Function FDynVal(FrmContrVal)
  If Len(FrmContrVal & "") = 0 Then
    FDynVal = Null
  Else
    Select Case VarType(FrmContrVal)
      Case 2 To 6, 11, 14, 17
        FDynVal = Str(FrmContrVal)
      Case 8
        FDynVal = "'" & FrmContrVal & "'"
      Case 7
        FDynVal = Format(FrmContrVal, "\#mm\/dd\/yyyy\#")
    End Select
  End If
End Function