VB6 - VB2008 modifica funzione

[mdnet]

Ciao, qualcuno mi saprebbe gentilmente aiutare sulla conversione di queste 2 righe di codice scritte in un vecchio progetto VB6 e che oggi dovrei portare su un progetto VB.net 2008 ? Grazie

cboClienti.ItemData(cboClienti.ListCount - 1) = rstAnagrafica!ID
rstAnagrafica.MoveNext

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex) & "  ORDER BY Cognome ASC"

Chiedo agli Admin di spostarlo di sezione, ho sbaglio e chiedo scusa.