Eliminar Registro

If MessageBox.Show("Esta SEguro de eliminar los datos", "Mensaje", MessageBoxButtons.OKCancel, MessageBoxIcon.Information) = Windows.Forms.DialogResult.OK Then

Dim fila As Integer = Me.DataGridView1.CurrentRow.Cells("idinsti").Value

Dim sql As String

sql = "delete from institucion where idinsti=" & fila

conexion.Insertar(sql)

DataGridView1.DataSource = conexion.Listar("select*from institucion")

End If