Registro autonumerico

[lokoman]

Hola!
Y si realizas una consulta cuando cargas el formulario?:

Código vb:

dim rstConsulta as ADODB.recordset
set rstConsulta=new adodb.recordset
rstConsulta.source="SELECT MAX CAMPO_ID AS ULTIMO_REG_GUARDADO FROM TABLA"
 
if rstConsulta.eof=false then
textbox1.text=rstConsulta!ULTIMO_REG_GUARDADO +1
end if