My project have invoice no.I want to run the invoice Auto Number.please help with the right code.

put auto increment in the data field of the data base. every database has this option.

i use my own auto number by this method
first of all load the last entery
then adding 1 in that entery

Dim DBConn As ADODB.Connection
Set DBConn = New ADODB.Connection

    DBConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
                & "Data Source=" _
                & GetAppPath _
                & "anyname.mdb"
Dim rSearch As ADODB.Recordset
        Set rSearch = New ADODB.Recordset
        rSearch.Open "tablename", gobjConn, adOpenDynamic, adLockPessimistic
If rSearch.BOF = True And rSearch.EOF = True Then
        LblID.Caption = "200001"    'this is if there is no record and it is 'going to be the first entery
        rSearch.MoveLast 'here there are enteries in the database
        LblID.Caption = rSearch!ID + 1  ' eg 200001 + 1 se new Auto Number 'will be 200002
    End If