Originariamente inviato da gibra
OK, vedo che non capisci.
Il codice te l'ho già dato (la query).

Non è un problema di VB, perchè quella è una query ed è indipendente da linguaggio.
MSAccess è un ambiente diverso da VB6 o dal NET; trattandosi di VBA è più simile al VB6 che al NET ma oggetti, funzioni e metodi sono o possono essere diversi.
In VB6 io farei così (scrivo al volo)
codice:
Dim ProssimoNumero as Long
Dim CN As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sSQL As String
Set CN = New ADODB.Connection
CN.Connectionstring = <connessione al database>
CN.Open

sSQL = "SELECT Max(Progressivo) + 1 FROM tabella"
Set rs = CN.Execute(sSQL)
If Not rs.EOF Then
    ProssimoNumero = rs.Fields(0).Value
End If
Vedi qualche attinenza con il VBA?

Scusa, come la esegui la INSERT di cui parli?
Ecco, allo stesso modo eseguirai la SELECT che ti ho indicato, no?


Ciao
non è che non capisco è solo che non conoscendo vb non capisco cosa cambi da vb6 a vba?!
praticamente la struttura è la stessa che vedo normalmente, proverò e ti farò sapere.
per la insert la inserisco come codice sSQL come hai fatto per la select