Originariamente inviato da Pestilence
il fatto di avere 0003 è che praticamente quando faccio nuovo utente non sono riuscito a fargli leggere l'ultimo record di ID in un DB allora lo scrivo solo la prima volta e il passaggio è il seguente

ID Iniziale: "0001" 'TxtID.text
Click Nuovo Record
LblID.caption = (txtID.text + 0) 'Cosi diventa 1

-------------------------------
ID Secondario : "" 'TxtID.text
Click Salva
txtID.text = "000" & (lblID.Caption + 1) 'Ora mi diviene 0002
-------------------------------
ID Secondario : "0002"

spero che tu abbia capito cosa intendo, sono un cane a spiegare le cose :P
Per leggere l'ultimo ID inserito nel database ti basta fare una SELECT:
codice:
Private Sub NuovoUtente()
   Dim adoRS As New ADODB.Recordset
   Dim strSQL As String
   Dim lngIDMax As Long

   strSQL = "SELECT Max(ID) As Valore From NomeTabella"
   Set adoRS = Connessione.Execute(strSQL)
   lngIDMax = adoRS("Valore")
   Set adoRS = Nothing
   'scrive l'id successivo all'ultimo presente sul database
   Text1.Text = lngIDMax + 1 
End Sub
e una volta letto l'ultimo puoi scriverlo nella textbox e nella label.

Spero sia ciò che ti serve