consulta de datadrigview

[fishlv2]

alfil123

que tal, mira por lo que he visto no encuentro nada mal, lo he probado y lo he comparado con proyectos que tengo y todo esta correctamente, pero prueba con poner un punto de interrupción y mira:

1. si la variable "renglon" lleva el indice de la fila

2. si la variable "variable" lleva el valor esperado

Nota: mira estas lineas de codigo que escribiste
renglon = DataGridView1.CurrentCell.RowIndex
Dim variable As String = DataGridView1.Item(0, renglon).Value

lo puedes cambiar a:
Dim x as String = DataGridView1.CurrentRow.Cells(0).Value.ToString

y te devolvera el contenido de la celda, en la fila que te encuentres
posicionado.

3. si las 2 variables anteriores si llevaban un valor, pon un punto de interrupción
en el "...Dim da as New Oledb.." y copia el string completo de tu query y lo pegas en
access para que se ejecute el query y miras si te devuelve algun dato.

4. Si en el punto 3 no te devolvio algo, fijo es porque no hay registros que cumplan tu condicion, pero si te devolviera algo yo cambiaria tu codigo y le agregaria nada mas a que tabla quiero guardarla

Dim dsconsulta As New DataSet
da.Fill(dsconsulta, dsconsulta.Tables("asdf"))
MessageBox.Show(dsconsulta.Tables.Item(0), "Adelante...", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
DataGridView2.DataSource = dsconsulta.Tables("asdf")

Espero que te ayude algo mis instrucciones! ya sabes que cualquier duda me avisas