Puoi provare in questo modo se rsRecordSet2!ACA accetta i blank:
Ciaocodice:Private Sub Salva_Click() 'questo non serve 'rsRecordSet2.Update If Trim(rsRecordSet2!ACA) <> Trim(Text4.Text) Then rsRecordSet2!ACA = Text4.Text & "" rsRecordSet2.Update End If End sub