datagridview borrar fila

[guillebomtrasmiti]

Private Sub BBorraFila_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BBorraFila.Click
borralineagrid()
End Sub
'borra linea seleccionada en el datagridview
Public Sub borralineagrid()
Dim adapt As New OleDbDataAdapter
Dim setda As New DataSet

comando.Connection = conexion
comando.CommandText = "Delete From LineasFacturas Where Id = @id"
comando.Parameters.AddWithValue("@id", (DgFacturas.CurrentRow.Cells(14).Value))
adapt.SelectCommand = comando
conexion.Open()
comando.ExecuteNonQuery()
conexion.Close()
conectagrid()

End Sub



Public Sub conectagrid()

Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet

Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'Try
comados.CommandText = "SELECT RefProveedor,Plu,NomProducto,NUnidades,FormatoComp ra,Cantidad,PtsUndsCompra,Dto,PtsBotella,TipoIva,T otalLinea,UndsCompra,FechaCaduca,IdCaduca,Id From LineasFacturas"

adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "LineasFacturas")

'aquí cargo el datasource y el datamenber del datagrid
DgFacturas.DataSource = datavacio
DgFacturas.DataMember = "LineasFacturas"
'DgFacturas.Refresh()

' Catch

'aspecto del datagridview
DgFacturas.DefaultCellStyle.SelectionBackColor = Color.Gold
DgFacturas.AlternatingRowsDefaultCellStyle.BackCol or = Color.Khaki
DgFacturas.DefaultCellStyle.BackColor = Color.Beige
' en alto de la celda....DataGridView1.RowTemplate.Height = 14
DgFacturas.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

'conexion.Close()

End Sub