Dim cn As New ADODB.Command
 Dim rs As ADODB.Recordset
 cn.ActiveConnection = CurrentProject.Connection
   cn.CommandType = adCmdText

   cn.CommandText = "update podat_nom set dat_vid=null where  years= '" & Me.years1.value & "' and nom_podat='" & Me.nom_podat1.value & "' and periods= '" & Me.periods1.value & "'"

   Set rs = cn.Execute
 DoCmd.Requery Forms!podat1![sbf_PODAT_NOM].Name