Cargar ComboBox SqlServer y Vb.net

Imports System.Data.SqlClient
Imports System.Data.Sql


Public Class FormABMAplicaciones
    Dim salida As String

    Private adapter As SqlDataAdapter
    Private mDt As New DataTable
    Private dt As New DataTable
    Private dtt As New DataTable
    Private CMD As New SqlCommand
    Dim CBIdUsuario As String
    Dim Vusuario As String
    Dim sentencia, msg As String
    Dim valorcb As String 'optiene el resultado del combo de modulos
    Dim conexion As New SqlConnection("Data Source=SR01SIGPRE01;Initial Catalog=SIGMAMIRROR;Integrated Security=True")

    'Sub EJECUTAR(SQL As String, MSg As String)
    '    Try
    '        Dim cmd As New SqlCommand(SQL, conexion)
    '        conexion.Open()
    '        cmd.ExecuteNonQuery()
    '        conexion.Close()
    '        MsgBox(MSg)
    '        CARGARDATOS()
    '    Catch ex As Exception
    '        MsgBox(ex.Message)
    '    End Try
    'End Sub
#Region "botones"


    Private Sub BtnAgregar_Click(sender As Object, e As EventArgs) Handles BtnAgregar.Click

        Dim Vcbidmodulo As Integer
        Dim VtbCodigoAplicacion As String
        Dim VtbNombAplicacion As String
        Dim VtbArchiEjecut As String
        Dim VtbNombImg As String
        Dim VCBEdoActivo As Boolean
        Dim VtbVersión As String
        Dim VCBIdUsuario As String
        If tbNombAplicacion.Text = "" Or tbNombAplicacion.Text = "" Or tbArchiEjecut.Text = "" Or tbNombImg.Text = "" Or
                                CBEdoActivo.Text = "" Or tbVersion.Text = "" Or CBUsuario.Text = "" Or CbidModulo.Text = "" Then
            MessageBox.Show("No se pudieron ingresar los datos, Algunos Campos estan Vacios")

        Else
            '  Vcbidmodulo = CbidModulo.Text
            VtbCodigoAplicacion = tbCodigoAplicacion.Text
            VtbNombAplicacion = tbNombAplicacion.Text
            VtbArchiEjecut = tbArchiEjecut.Text
            VtbNombImg = tbNombImg.Text
            VCBEdoActivo = CBEdoActivo.Text
            VtbVersión = tbVersion.Text

            Vusuario = CBUsuario.SelectedValue.ToString()
            VCBIdUsuario = Vusuario

            valorcb = CbidModulo.SelectedValue.ToString()
            Vcbidmodulo = valorcb

            Insertar(Vcbidmodulo, VtbCodigoAplicacion, VtbNombAplicacion, VtbArchiEjecut, VtbNombImg, VCBEdoActivo, VCBIdUsuario, VtbVersión)
            MessageBox.Show("Registro de la aplicación exitoso")
            Limpiar_Campos()
        End If
        CARGARDATOS()
    End Sub

    Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles BtnSalir.Click
        Me.Close()
    End Sub

#End Region
    Sub CARGARDATOS()
        mDt = New DataTable
        mDt = ConexionSQL.EjecutarSP("SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES")
        If Not IsNothing(mDt) Then
            DataGridView2.DataSource = mDt
        End If

    End Sub

    Private Sub FormABMAplicaciones_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CARGARDATOS()
        CARGARCOMBOBOXMODULO()
        CARGAR_COMBO_USUARIO()
    End Sub

    Function Insertar(ByVal cbidmodulo As Integer,
                      ByVal tbCodigoAplicacion As String,
                      ByVal tbNombAplicacion As String,
                      ByVal tbArchiEjecut As String,
                      ByVal tbNombImg As String,
                      ByVal CBEdoActivo As Boolean,
                      ByVal CBIdUsuario As String,
                      ByVal tbVersión As String
                      )



        Dim salida As String
        salida = "Datos Agregados Muy Bien..!!"
        Try
            CMD = New SqlCommand("SP_PLUS_SEGURIDAD_ABMTABLA_APLICACIONES_INSERTAR", conexion)
            conexion.Open()
            CMD.CommandType = CommandType.StoredProcedure
            With CMD.Parameters
                .AddWithValue("@_idmodulo", cbidmodulo)
                .AddWithValue("@_CODAPLIC", tbCodigoAplicacion)
                .AddWithValue("@_DESCAPLIC", tbNombAplicacion)
                .AddWithValue("@_ARCHEJEA", tbArchiEjecut)
                '.AddWithValue("@_IMAGAPLI", "")
                If CBEdoActivo = True Then
                    .AddWithValue("@_ACTIVO", 1)
                Else
                    .AddWithValue("@_ACTIVO", 0)
                End If
                .AddWithValue("@_IDUSUARIO", CInt(CBIdUsuario))
                '.AddWithValue("@_FECHAACTUAL", tbCódigoAplicación.Text)
                .AddWithValue("@_NOMBIMAG", tbNombImg)
                .AddWithValue("@_VERSION", tbVersión)
            End With
            CMD.ExecuteNonQuery()
            conexion.Close()
        Catch ex As Exception
            MessageBox.Show("No se logro el registro:" + ex.ToString)
        End Try
        Return salida
    End Function



    Sub CARGARCOMBOBOXMODULO()
        conexion.Open()

        CMD = New SqlCommand("SP_SISTEMA_MODULOS_LISTAR_ACTIVOS", conexion)
        CMD.CommandType = CommandType.StoredProcedure
        adapter = New SqlDataAdapter(CMD)
        dt = New DataTable("sistema_modulos")
        adapter.Fill(dt)

        CbidModulo.DisplayMember = "nombre"
        CbidModulo.ValueMember = "id"
        CbidModulo.DataSource = dt
        CbidModulo.SelectedIndex = 0
        valorcb = CbidModulo.SelectedValue.ToString()

        conexion.Close()
    End Sub

    Sub CARGAR_COMBO_USUARIO()

        conexion.Open()

        CMD = New SqlCommand("SP_SISTEMA_ABMTABLA_USUARIOS_LISTAR", conexion)
        CMD.CommandType = CommandType.StoredProcedure
        adapter = New SqlDataAdapter(CMD)
        dtt = New DataTable("SISTEMA_USUARIOS")
        adapter.Fill(dtt)

        CBUsuario.DisplayMember = "Descripción"
        CBUsuario.ValueMember = "Idusuario"
        CBUsuario.DataSource = dtt
        CBUsuario.SelectedIndex = 0
        Vusuario = CBUsuario.SelectedValue.ToString()

        conexion.Close()


    End Sub

    Function Actualizar(ByVal Id_AplicaciónTextBox As Integer,
                     ByVal cbidmodulo As String,
                     ByVal tbCodigoAplicacion As String,
                     ByVal tbNombAplicacion As String,
                     ByVal tbArchiEjecut As String,
                     ByVal tbNombImg As String,
                     ByVal cbEdoActivo As Boolean,
                     ByVal tbVersión As String,
                     ByVal CBIdUsuario As String)


        Try
            CMD = New SqlCommand("SP_SISTEMA_APLICACIONES_APTUALIZAR", conexion)
            conexion.Open()
            CMD.CommandType = CommandType.StoredProcedure
            With CMD.Parameters
                .AddWithValue("@_IDAPLICACION", Id_AplicaciónTextBox)
                .AddWithValue("@_idmodulo", cbidmodulo)
                .AddWithValue("@_CODAPLIC", tbCodigoAplicacion)
                .AddWithValue("@_DESCAPLIC", tbNombAplicacion)
                .AddWithValue("@_ARCHEJEA", tbArchiEjecut)
                '.AddWithValue("@_IMAGAPLI", "")
                '.AddWithValue("@_FECHAACTUAL", tbCódigoAplicación.Text)                
                If cbEdoActivo = True Then
                    .AddWithValue("@_ACTIVO", True)
                Else
                    .AddWithValue("@_ACTIVO", False)
                End If
                .AddWithValue("@_IDUSUARIO", CInt(CBIdUsuario))  '<<---------------
                .AddWithValue("@_NOMBIMAG", tbNombImg)
                .AddWithValue("@_VERSION", tbVersión)
            End With
            CMD.ExecuteNonQuery()
            conexion.Close()
        Catch ex As Exception
            MessageBox.Show("No se pudo actualizar el registro:" + ex.ToString)
        End Try

        Return salida
    End Function

    Private Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
        Dim VId_AplicaciónTextBox As String
        Dim Vcbidmodulo As String
        Dim VtbCodigoAplicacion As String
        Dim VtbNombAplicacion As String
        Dim VtbArchiEjecut As String
        Dim VtbNombImg As String
        Dim VCBEdoActivo As Boolean
        Dim VtbVersion As String
        Dim VCBIdUsuario As String
        If tbCodigoAplicacion.Text.Equals("") = False And tbNombAplicacion.Text.Equals("") Then
            VId_AplicaciónTextBox = Id_AplicaciónTextBox.Text
            'Vcbidmodulo = CbidModulo.Text
            VtbCodigoAplicacion = tbCodigoAplicacion.Text
            VtbNombAplicacion = tbNombAplicacion.Text
            VtbArchiEjecut = tbArchiEjecut.Text
            VtbNombImg = tbNombImg.Text
            Vusuario = CBUsuario.SelectedValue.ToString()
            VCBIdUsuario = Vusuario
            'VCBIdUsuario = CBUsuario.Text
            VCBEdoActivo = CBEdoActivo.Text
            VtbVersion = tbVersion.Text

            valorcb = CbidModulo.SelectedValue.ToString()
            Vcbidmodulo = valorcb
            Actualizar(VId_AplicaciónTextBox, Vcbidmodulo, VtbCodigoAplicacion, VtbNombAplicacion, VtbArchiEjecut, VtbNombImg, VCBEdoActivo, VtbVersion, VCBIdUsuario)
            MsgBox("Actualización correcta")
        Else
            MsgBox("no se pudo actualizar, algunos campos estan vacios")
        End If
        Limpiar_Campos()
        CARGARDATOS()
    End Sub



    Private Sub DataGridView2_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellContentDoubleClick
        Dim I As Integer
        I = DataGridView2.CurrentRow.Index
        Me.DataGridView2.Refresh()

        Id_AplicaciónTextBox.Text = DataGridView2.Item(0, I).Value()
        tbCodigoAplicacion.Text = DataGridView2.Item(1, I).Value()
        tbNombAplicacion.Text = DataGridView2.Item(2, I).Value()
        tbArchiEjecut.Text = DataGridView2.Item(3, I).Value()
        CBEdoActivo.Text = DataGridView2.Item(4, I).Value()
        CBUsuario.Text = DataGridView2.Item(5, I).Value()
        CbidModulo.Text = DataGridView2.Item(6, I).Value()
        tbNombImg.Text = DataGridView2.Item(7, I).Value()
        tbVersion.Text = DataGridView2.Item(8, I).Value()


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        OpenFileDialog1.InitialDirectory = "C:\Users\JMedina\Pictures\Saved Pictures"
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
            tbNombImg.Text = OpenFileDialog1.FileName
        End If
    End Sub

    Sub Limpiar_Campos()
        Id_AplicaciónTextBox.Text = ""
        CbidModulo.Text = ""
        tbCodigoAplicacion.Text = ""
        tbNombAplicacion.Text = ""
        tbArchiEjecut.Text = ""
        tbNombImg.Text = ""
        CBEdoActivo.Text = ""
        CBUsuario.Text = ""
        tbVersion.Text = ""

    End Sub
End Class