Acceda a VBA: Encuentre el número máximo en la columna y agregue 1

En mi base de datos de Access, tengo una tabla llamada "Demande". Quiero leer todos los registros en la columna "Numero de Commande" y leer el número más grande en la columna para poder usar ese número para el siguiente registro nuevo.

Así que aquí está mi mesa:

El Índice Clave es para el Numero de Commande.

y aquí está mi código actualmente:

 Dim highestInt as Integer
 Dim newNumeroCommande as Integer

 Set currentDatabase = CurrentDb
 Set rstDemande = currentDatabase.OpenRecordset("Demande")

 ' Find the highest integer in the column "Numero de Commande"

 newNumeroCommande = highestInt + 1
 rstDemande.AddNew
 rstDemande("Numero de Commande").Value = newNumeroCommande 
 rstDemande.Update

Gracias por toda la ayuda.

Respuestas a la pregunta(2)

Su respuesta a la pregunta