Dim myCommand As OleDBCommand
Dim strUpdateStmt As String


strUpdateStmt = " DELETE FROM Fornitore " & _
" WHERE IDFornitore = " & MyDataGrid2.DataKeys(CInt(E.Item.ItemIndex))


myCommand = New OleDBCommand(strUpdateStmt, myConnection)
myConnection.Open()
TRY
myCommand.ExecuteNonQuery()
CATCH DBE as system.data.oledb.oledbexception
lblMessage.Text = "Errore " + dbe.tostring()
END TRY
MyDataGrid2.EditItemIndex = -1
myConnection.close()
BindData()