Como generar id autonumerico para mi sistema?

[vicentecamesella]

Ok colega el autoincrement puede que no te de error pero eso dependera de tu tipo de aplicacion te anexo un codigo utilizado y me funciona al pelo

Call traza("Division de Productos", "Modi", Text1(0)) 'Llamo la funcion de llenado de traza
Case AGREGAR_DIVISION 'En caso de agregar
If Not rc.BOF Then 'Compruebo el recordset en caso de no estar basio
rc.MoveLast 'Obtengo el ultimo registro de la tabla
FRMDIVISION.Text1(0).Text = Format(rc.Fields("div_codigo") + 1, "000000")
'Selecciono el ultimo registro mas uno
Else 'En caso contrario
FRMDIVISION.Text1(0) = "000001" 'Si no existe le doy el valor inicial
End If 'Fin de revision de Recordset

Call insertar(Tabla, Campos, Valores) 'Llamo la funcion del Insertar

End Select 'Culmino el Select

Ok arriba te lo coloque espero te sirva a lo que hago es guastamente antes de mandar a realizar el insert vuelvo a tomar la variable del valor la probabilidades son extitas de que dos maquinas tomen al tiempo este valor debido a que la operacion se tarda 0,001 segundo jejejej