lo primero que tenes que hacer es ordenar el recordset por numero , el cual vas a incrementar ej
.Source = "SELECT * FROM NumeroOrden ORDER BY Numero"
' reg variable a la que le asigno el valor total de registros
reg = rsNumeroOrden.RecordCount
If reg = 0 Then
'si es igual a 0 no hay nada en la base le pongo 1
frmOrdenes.lblNumeroOrden.Caption = "1"
Else
' sino muevo al ultimo registro de la base
rsNumeroOrden.MoveLast
' le asigno a reg el numero que tiene el ultimo registro
reg = rsNumeroOrden!idNumero
' le incremento 1 y lo muestro en un label
frmOrdenes.lblNumeroOrden.Caption = reg + 1
End If
' yo lo hago de esta manera espero te sirva
