If the target field is a string (and it must be if it has any spaces), this example will work. Both updates do the same thing, except the replace will also eliminate embedded spaces.
Code:
Private Sub cmdClean_Click()
Dim sSQL As String
sSQL = "UPDATE tblInformation SET tblInformation.CustomerName = '" & Replace([CustomerName], " ", "") & "';"
CurrentDb.Execute sSQL, dbFailOnError
sSQL = "UPDATE tblInformation SET tblInformation.CustomerName = '" & Trim([CustomerName]) & "';"
'Debug.Print sSQL
CurrentDb.Execute sSQL, dbFailOnError
Me.Requery
End Sub