Mira te dejo este fijate si te sirve esta hecho en Ado en una base de datos en acces.
Se utiliza un select (para buscar en la tabla), order by (para ordenar automaticamente) y un do while not (para que busque hasta llegar al ultimo cargado y generarte automaticamente el siguiente por ej si tenes cargado hasta el numero 5 te genera el numero 6 ordenado)
X = "select * from tabla order by numero"
' tabla es el nombre de la tabla de
'la base de datos en acces
Tabla.Open X, Conexion
' conexion es la variable que utilizo para conectar la tabla
' recorda que lo tenes que hacer en el modulo
Global Conexion As New ADODB.Connection
Global Tabla As New ADODB.Recordset
Sub cerrar()
Conexion.Close
End Sub
Sub abrir()
Conexion.ConnectionString = App.Path + "CONTACTOS.mdb"
Conexion.Provider = "microsoft.jet.oledb.4.0"
Conexion.Open
End Sub
' y activar la libreria Microsoft ActiveX Data Objets 2.8 Library
NUM = 0
Text1 = "1"
Do While Not Tabla.EOF = True
NUM = Tabla!numero
Text1 = NUM + 1
Tabla.MoveNext
Loop
Tabla.Close
Espero que te ayude cualquier cosita me avisas mi correo es
[email protected]