Recuperare id

[ninoval]

Salve a tutti.
Con questa funzione inserisco un record nel database.

Sub Inserisci(Sender As Object, E As EventArgs)
  Dim ConnPath = "../../db.mdb"
  Dim strConn as string ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(ConnPath) & ";Jet OLEDB:Database Password=password;" 
  Dim MyConnection as New OleDbConnection(strConn)
  MyConnection.Open()
  Dim sql = "INSERT INTO ordini (nome) VALUES ('mario')"
  Dim comm = New OleDbCommand(sql, MyConnection)
  comm.ExecuteNonQuery()
End Sub

Come faccio a recuperare l'id (campo di tipo contatore) del record appena inserito?
Grazie a tutti.

A. Valenti

[AndreaZani]

Con la connessione ancora aperta è sufficiente fare un select per richiedere l'identity.

command = New OleDbCommand("select @@identity", strConn)
Dim UltimoID as Integer = cint(command.ExecuteScalar())

Funziona dalla versione 2000 di Access.

Ciao

[ninoval]

Fantastico!
Grazie mille, Andrea.

[AndreaZani]

Prego

Ciao