Actualizar datos

Como puedo hacer lo siguiente; si hay un cambio en los textbox actualizar en
la base de datos y si no se modifico nada que presente algun mensaje.

este es mi codigo para actualizar:

MyConection.AbrirConexion()
Dim cActualizar As OleDbCommand
cActualizar = New OleDbCommand("UPDATE AM_Seguro SET " & _
"Nombre_Seguro = @Nombre," & _
"Direccion_Seguro = @Direccion " & _
"WHERE ID_Seguro = @Codigo", oSQLConn)

cActualizar.Parameters.Add("@Nombre", OleDbType.VarChar, 50).Value=
txtDescripcion.Text
cActualizar.Parameters.Add("@Direccion", OleDbType.VarChar, 255).Value=
txtDireccion.Text
cActualizar.Parameters.Add("@Codigo", OleDbType.Numeric, 10).Value=
txtCodigo.Text
Try
cActualizar.ExecuteNonQuery()
MsgBox("Información actualizada correctamente...", sgBoxStyle.Information,
"Info. Consultorio")
MyConection.CerrarConexion()
Catch ex As Exception
MsgBox(ex.Message)
End Try