Creando Diferentes Store Procedure vb.net

alter PROCEDURE SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES
as
SELECT AP.idAplic AS "ID",
AP.codAplic AS "CODIGO",
AP.DescAplic AS "DESCRIPCIÓN",
AP.Ejecutable AS "ARCHIVO EJECUTABLE", 
AP.Activo AS "ACTIVO",
USU.codUsuario AS "USUARIO",
MO.codModulo AS "MODULO",
AP.TS AS "FECHA DE CREACIÓN",
AP.Version AS "VERSION"
 FROM SISTEMA_APLICACIONES AP INNER JOIN SISTEMA_MODULOS MO ON AP.idModulo = MO.idModulo 
INNER JOIN SISTEMA_USUARIOS USU ON AP.idUsuario = USU.idUsuario ORDER BY AP.idAplic ASC 
--------------------------------------------------------------
ALTER PROCEDURE SP_PLUS_SEGURIDAD_SISTEMA_AMBTABLAS_MODULO
AS
SELECT MO.IDMODULO AS "ID",MO.CODMODULO AS "CODIGO",MO.DESCMODULO AS "DESCRIPCION",MO.ACTIVO AS "ACTIVO",MO.CODTILE AS "TILE", USU.CODUSUARIO AS "USUARIO" FROM SISTEMA_MODULOS MO INNER JOIN
SISTEMA_USUARIOS USU ON MO.IDUSUARIO = USU.IDUSUARIO 


-------------------------------------------

para llenar el combo

USE [SIGMAMIRROR]
GO
/****** Object:  StoredProcedure [dbo].[SP_SISTEMA_MODULOS_LISTAR]    Script Date: 27/1/2020 15:49:11 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[SP_SISTEMA_MODULOS_LISTAR_ACTIVOS]

AS

SELECT CODMODULO as nombre,IDMODULO as id
FROM SISTEMA_MODULOS
WHERE ACTIVO = 1

-------------------------------------------------------

CREATE PROCEDURE SP_SISTEMA_APLICACIONES_APTUALIZAR

@_IDAPLICACION AS INT,
@_IDMODULO AS INT,
@_CODAPLIC AS VARCHAR(30),
@_DESCAPLIC AS VARCHAR(100),
@_ARCHEJEA AS VARCHAR(50),
--@IMAGEN AS IMAGE,
@_ACTIVO AS BIT,
--@IDUSUARIO AS INT,
@_NOMBIMAG AS VARCHAR(50),
@_VERSION AS VARCHAR(10)

AS

UPDATE SISTEMA_APLICACIONES SET IDMODULO = @_IDMODULO,
CODAPLIC = @_CODAPLIC, 
DESCAPLIC = @_DESCAPLIC, 
EJECUTABLE = @_ARCHEJEA,
--IMGAPLIC = @IMAGEN,
ACTIVO = @_ACTIVO,
--IDUSUARIO = @IDUSUARIO,
TS = GETDATE(),
NOMBREIMAGEN = @_NOMBIMAG,
VERSION = @_VERSION
WHERE IDAPLIC = @_IDAPLICACION



-----------------------------------------------

CREATE PROCEDURE SP_SISTEMA_ABMTABLA_USUARIOS_LISTAR

AS

SELECT  u.descusuario as Descripción, P.nomperfil as Perfil, 
        U.idusuario as IDUsuario
        FROM SISTEMA_USUARIOS U
INNER JOIN SISTEMA_PERFILES P
ON U.IDPERFIL = P.IDPERFIL
WHERE U.ACTIVO = 1  
ORDER BY CODUSUARIO


*************************
un archivo de ayuda
**************************


Delegate Sub MiDelegate(ByVal Control As ComboBox, ByVal Texto As String)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ComboBox1.DisplayMember = "Nombre2"
        ComboBox1.ValueMember = "Nombre1"
        ComboBox1.DataSource = DataTable
        ComboBox1.SelectedIndex = 0
    End Sub
 
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Texto As String
        Dim Arreglo(1) As Object
 
        If ComboBox1.SelectedIndex > -1 Then
            Texto = ComboBox1.SelectedValue.ToString()
            Arreglo(0) = ComboBox1
            Arreglo(1) = Texto
            Me.BeginInvoke(New MiDelegate(AddressOf MetodoDelegado), Arreglo)
        End If
 
    End Sub
 
    Public Sub MetodoDelegado(ByVal TheControl As ComboBox, ByVal Texto As String)
        ComboBox1.Text = Texto
    End Sub