Cargar Datos Desde un GRidView acampos en el form

Imports System.Data.SqlClient

Public Class FormABModulos

    Private mDt As DataTable
    Private DataGridView1row As DataGridView
    Private i As Integer
    Private VarIDapli As Integer
    Private VarIDmodulo As Integer

    Dim sentencia, mensaje As String
    Dim conexion As New SqlConnection("Data Source=SR01SIGPRE01;Initial Catalog=SIGMAMIRROR;Integrated Security=True")
    Sub Mostrar()
        Dim CONSULTA As New SqlDataAdapter("SELECT * FROM SISTEMA_MUDULO ", conexion)
        CONSULTA.SelectCommand.CommandType = CommandType.Text
        Dim tabla As New DataTable
        CONSULTA.Fill(tabla)
        DataGridView1.DataSource = tabla
    End Sub
    Sub cargarDatos()
        mDt = New DataTable
        mDt = ConexionSQL.EjecutarSP("ABMSistemas")
        If Not IsNothing(mDt) Then
            DataGridView1.DataSource = mDt
        End If
    End Sub

   

    Sub ejecutar(sql As String, msg As String)
        Try
            Dim cmd As New SqlCommand(sql, conexion)
            conexion.Open()
            cmd.ExecuteNonQuery()
            conexion.Close()
            MsgBox(msg)

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
        Dim Activo As String = "1"
        Dim fechaTS As String = DateTime.Now.ToShortDateString()
        Dim USUARIO As String = "10"
        If Not IsNothing(TBCodigoModulo.Text) Then
            Try
                sentencia = "insert into sistema_modulos (codmodulo,descmodulo,activo,idusuario,ts,codtile)values('" + TBCodigoModulo.Text + "','" + TBDescModulo.Text + "','" + Activo + "','" + USUARIO + "','" + fechaTS + "','" + TBCodTile.Text + "')"
                'mensaje = "Datos Registrado con éxito"
                ejecutar(sentencia, mensaje)

                AUIQ SE DEBE CARGAR EL ULTIMO REGISTRO DEL LA TABLA MODULO

                sentencia = "insert into SISTEMA_APLICACIONES (codAplic,DescAplic,Ejecutable,imgaplic,activo,NombreImagen,Versión,IDMODULO)values('" + tbCodApli.Text + "','" + tbDescApli.Text + "', '" + tbArcExcApli.Text + "','" + tbDirImgApli.Text + "','" + Activo.Text + "','" + tbNombImgApli.Text + "','" + tbVersionApli.Text + "','" + VarIDmodulo.Text + "' )"
                mensaje = "Datos Registrado con éxito"
                ejecutar(sentencia, mensaje)
            Catch ex As Exception

            End Try

        ElseIf Not IsNothing(TBCodigoModulo) Then
            Aptualizar()

        End If

    End Sub

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

    Sub Aptualizar()
        sentencia = "update sistema_modulos set CodModulo = '" + TBCodigoModulo.Text + "','" + TBCodigoModulo.Text + "' where idmodulo='1' and idaplic=tb "
        mensaje = "Datos Actualizado con éxito"
        ejecutar(sentencia, mensaje)
    End Sub

    Private Sub FormABModulos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        cargarDatos()
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim i As Integer
        i = DataGridView1.CurrentRow.Index
       
        Me.DataGridView1.Refresh()
        'APLICACIONES
        VarIDapli = DataGridView1.Item(0, i).Value()
        tbCodApli.Text = DataGridView1.Item(1, i).Value()
        tbDescApli.Text = DataGridView1.Item(2, i).Value()
        tbArcExcApli.Text = DataGridView1.Item(3, i).Value()
        ' PictureBox1.Image = DataGridView1.Item(4, i).Value()
        CBEstado.Text = DataGridView1.Item(4, i).Value()
        tbNombImgApli.Text = DataGridView1(5, i).Value()
        tbVersionApli.Text = DataGridView1.Item(6, i).Value()

        'MODULOS
        TBCodigoModulo.Text = DataGridView1.Item(7, i).Value()
        TBDescModulo.Text = DataGridView1.Item(8, i).Value()
        TBCodTile.Text = DataGridView1.Item(9, i).Value()
        VarIDmodulo = DataGridView1.Item(10, i).Value()

    End Sub
End Class