[VB 2008] - Recuperare ID dell'ultimo record inserito

[mdnet]

Buonasera a tutti, sto cercando di creare una piccola funzione per recuperare l'ID dell'ultimo record inserito in una determinata tabella.

Guardando in rete ho trovato un es. che ho modificato in base alle mie esigenze, il problema è che il risultato è sempre 0.

Grazie a chiunque riesca a darmi qualche info.


Dim con As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; data source=c:\test\data\test.mdb")
Dim cmd As OleDbCommand = New OleDbCommand("Select * FROM Tabella1", con)
con.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, "Tabella1")
con.Close()
con = Nothing




Dim newID As Integer = 0
Dim idCMD As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT @@IDENTITY", con)
MsgBox(newID)