Puoi provare in questo modo se rsRecordSet2!ACA accetta i blank:
codice:
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
Ciao