Private Sub dg1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dg1.CellClick
If (e.ColumnIndex = 0) Then
Dim cmdbAccessCmdBuilder As New OleDbCommandBuilder(adapter)
Dim id As Integer = dg1.Rows(e.RowIndex).Cells(1).Value
Try
Dim str_q As String = "Delete * from prenotazione where id=" & id
selCommand = New OleDbCommand(str_q, conn)
conn.Open()
selCommand.ExecuteNonQuery
conn.Close()
Catch Ex as exception
messagebox.show(ex.message)
End Try
End If
End Sub