Добрый день!
Подскажите, пожалуйста, что не так, почему то не обновляется поле адрес_суда

Private Sub выбор_Click()
Dim adres_suda As String
Dim strSQL As String
adres_suda = Forms!суды![адрес]
strSQL = "UPDATE протоколб SET [адрес_суда] = '" & adres_suda & "' " & _
"WHERE [индекс_отдела]=" & "'" & Forms!протоколб![индекс_отдела] & "'" & "And [Номер_протокола]=" & "'" & Forms!протоколб![номер_протокола] & "'" & ";"
CurrentDb.Execute strSQL
' обновим список
DoCmd.Close acForm, "суды"
End Sub

http://www.sql.ru/forum/1089150/ne-srabatyvaet-obnovlenie-polya