Visual Basic.NET - Ayuda con Datagredview

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim comando As String

    Dim adapter As SQLDataAdapter

    Dim Data_Table As New DataTable

    Dim CadenaConection_ As String = " ...   "  ' Dar la frase de conexion

    Dim conexion As SQLConnection = New SQLConnection(CadenaConection_)

    Try

        comando = "SELECT * FROM NombreTablaArticulos WHERE CamposABuscar = '" & TextBox1.Text & "'"

        adapter = New SQLDataAdapter(comando, conexion)

        adapter.Fill(Data_Table)

        DataGridView1.DataSource = Data_Table  ' Tambien es posible de agregar "manualmente" las lineas en DataGridView

    Catch ex As Exception

        MessageBox.Show(ex.Message)  ' Si error con la DB

    End Try

    adapter.Dispose()

End Sub

Private Sub DGVTest_CellValueChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVTest.CellValueChanged

    Dim MiAdapter As OleDbDataAdapter

    Dim UnaTabla As New DataTable

    Dim Consulta As String

    If e.ColumnIndex <> 0 Then Exit Sub ' 0 es el indicio de la columna del Id

    Dim NombreDBCompleto As String = "D:\Tmp\TestAccesDBSQLExpress\MonStock2013.accdb"   ' MiExistencia

    MiConexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & NombreDBCompleto & ";"  ' Ejecutar en x64

    NombreTablaEnDB = "TProduit"   ' este es LaTablaQueMeGusta, = TProductos

    Try

        Consulta = "SELECT * FROM " & NombreTablaEnDB & " WHERE Id = " & DGVTest.Item(0, e.RowIndex).Value

        MiAdapter = New OleDbDataAdapter(Consulta, MiConexion)

        MiAdapter.Fill(UnaTabla)

        DGVTest.Item(1, e.RowIndex).Value = UnaTabla.Rows(0).Item(1)

    Catch

        MessageBox.Show("Codigo " & DGVTest.Item(0, e.RowIndex).Value.ToString & " no encontrado")  ' Si error con la DB o malo codigo

    End Try

    UnaTabla.Clear()

    UnaTabla.Dispose()

    MiAdapter.Dispose()

End Sub