выделяет желтым, что неправильно не пойму
Option Compare Database

Private Sub Form_Open(Cancel As Integer)
Me.Дата1 = Date
End Sub



Private Sub Кнопка2136_Click()

Физическая_агрессия = 0
косвенная_агрессия = 0
раздражение = 0
негативизм = 0
обида = 0
подозрительност = 0
вербальная_агресия = 0
чувсво_вины = 0

http://www.sql.ru/forum/1111391/vydelyaet-zheltym