Visual Basic - control de errores

tengo lo sig.

Private Sub Form_Activate()
On Error GoTo Mensaje
Dim RegistrarEstaMaquina As Integer
RegistrarEstaMaquina = Data2.Recordset.Fields("Maquina") + 100
Winsock1.SendData RegistrarEstaMaquina
Exit Sub
Mensaje:
Data4.Recordset.AddNew
Data4.Recordset.Fields("Ahora") = Now
Data4.Recordset.Fields("Entrada_Salida") = "E"
Data4.Recordset.Update
End Sub

si se genera un error en el control data como se controla, es decir hay un error y hace lo indicado, pero si ahi se genera otro error....