Private Sub LastName_BeforeUpdate()

  Me.LastName = UCase(Left(Me.LastName, 1)) & Mid(Me.LastName, 2)

End Sub

It is better to use the BeforeUpdate event, as this is something you want as part of the actual update,...