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