Executing a stored procedure in vb - sql

Question

I'm using the current code to try to execute a stored procedure, and it shows no errors, but the update made by the procedure is not executed.
Public Function UpdateRouteByRegister(ByVal conexion As String, ByVal idRegister As Integer, ByVal route As String) As Boolean
Try
ConnectionString = conexion
myConnection = New SqlConnection(ConnectionString)
myDataAdapter = New SqlDataAdapter("spUpdateHistoricLoad", myConnection)
myDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
myDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("#idRegister", SqlDbType.Int))
myDataAdapter.SelectCommand.Parameters("#idRegister").Value = idRegister
myDataAdapter.SelectCommand.Parameters.Add(New SqlParameter("#route", SqlDbType.VarChar, 100))
myDataAdapter.SelectCommand.Parameters("#route").Value = route
myDataAdapter.SelectCommand.CommandTimeout = 0
myDataset = New DataSet
myDataAdapter.Fill(myDataset)
myDataset.Dispose()
myConnection.Close()
Log("******* Register updated = " + idRegister.ToString + " *******")
Return True
Catch objException As Exception
Log("******* Error on updating register = " + idRegister.ToString + " *******")
Return False
End Try
End Function
The SQL Stored Procedure is the following:
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[spUpdateHistoricLoad]
#idRegister INTEGER,
#route VARCHAR(100)
AS
BEGIN
UPDATE tOperation SET ImagenMulti = #route WHERE IDRegister = #idRegister
END

Answer 1

I would suggest dropping the DataAdapter and DataSet objects and just use a SqlCommand:
Public Function UpdateRouteByRegister(ByVal conexion As String, ByVal idRegister As Integer, ByVal route As String) As Boolean
Try
ConnectionString = conexion
myConnection = New SqlConnection(ConnectionString)
myConnection.Open
Dim cmd as SqlCommand
cmd = New SqlCommand("spUpdateHistoricLoad", myConnection)
cmd.Parameters.AddWithValue("#idRegister", idRegister)
cmd.Parameters.AddWithValue("#route", route)
cmd.CommandTimeout = 0
cmd.ExecuteNonQuery
myConnection.Close()
Log("******* Register updated = " + idRegister.ToString + " *******")
Return True
Catch objException As Exception
Log("******* Error on updating register = " + idRegister.ToString + " *******")
Return False
End Try
End Function