vB - Prendere ID da ListWiev

[stockgio86]

HO PROVATO A FARE QUESTO:

Private Sub CANCELLA_Click()
Dim ID As Long
ID = ltwAgenti.SelectedItem.SubItems(1)
Dim STRSQL As String

STRSQL = "delete * from IMPIEGATI where ID = " & ID

MsgBox "CANCELLATI CON SUCCESSO"
End Sub

avanza fino al msgbox ma nn mi cancella niente..cosa può esere?