RESETAR NUMERA?ÃO AUTOM?TICA [ô]DAO[ô]

 Public Function DeleteAllAndResetAutoNum(cnn As Object, name_Bank As String, strTable As String) As Boolean
    [ô]Purpose:   Delete all records from the table, and reset the AutoNumber using ADOX.
    [ô]           Also illustrates how to find the AutoNumber field.
    [ô]Argument:  Name of the table to reset.
    [ô]Return:    True if sucessful.
    
    [ô]Refer: http://allenbrowne.com/func-adox.html#DeleteAllAndResetAutoNum
    
    Dim cat    As New ADOX.Catalog
    Dim tbl    As ADOX.Table
    Dim col    As ADOX.Column
    Dim strSQL As String
   
    [ô]Delete all records.
    strSQL = [Ô]DELETE FROM [[Ô] & strTable & [Ô]];[Ô]
    cnn.Execute strSQL
    
    [ô]Find and reset the AutoNum field.
    cat.ActiveConnection = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] & [Ô]Data Source=[Ô] & App.Path & [Ô]\[Ô] & name_Bank & [Ô].mdb;[Ô] & [Ô]Jet OLEDB:Database Password=[Ô] & MyDbPassword & [Ô];[Ô]
    Set tbl = cat.Tables(strTable)

    For Each col In tbl.Columns

        If col.Properties([Ô]Autoincrement[Ô]) Then
            col.Properties([Ô]Seed[Ô]) = 1
            DeleteAllAndResetAutoNum = True
        End If

    Next

End Function