RE:aumentar en uno el ultimo registro
correccion, para este ejemplo que te doy en vez de FROM cata_grupos debe ser FROM Tabla1...
Esto lo debes de poner anter de tu INSERT y en lugar de grabar la el valor de tu caja de texto debes de grabar el campo NumeroSiguiente, este lo debes de extraer con un RecordSet
1) primero debes de definir un record set
Option Compare Database
Dim db As DAO.Database, rs As DAO.Recordset
Dim variable1, variable2 as string
2) antes de tu INSERT
variable1="SELECT Max(tabla1.num)+1 AS NumeroSiguiente FROM tabla1"
Set db = CurrentDb()
Set rs = db.OpenRecordset(variable1)
If rs.RecordCount > 0 Then
variable2 = rs!NumeroSiguiente 'grabas el ultimo folio + 1
else
variable2 = 1 'sin no hay ningun folio grabas 1
end if
rs.Close
Set db = Nothing