puedes crear un sub Contador, y meter el resultado en una variable. por ejemplo:

sub Contador()
	with rsEmpleado
		.requery
		if .bof or .eof then
			id_emp = 1
		else
			id_emp = .recordcount + 1 
		end if
	end with
end sub

Gracias Junior Funciona bien Aunque comienza con el 2 y después siguen los numeros consecutivamente como quería, y si pones un registro directo en la Base de datos se salta al 3 y luego sigue el consecutivo normal, Gracias por tu aporte a mi conocimiento.

Hola Junio, Ronald y miembros de esta comunidad, tengo una consulta más, la respuesta que me brindo Junior si me es útil la prove llegando hasta el registro 7, y todos fueron consecutivos pero comenzando desde el 3 como ya mencione hay no le veo mucho problema, pero borre apropocito los registros del 3 al 6, esperando que el nuevo registro me diera 8, pero me da un 4, o sea no me esta tomando el valor del ultimo registro, que es lo que busco, alguna ayuda extra por favor.

Hola ya corregui el detalle de la numéracion consecutiva solo cambie un renglón en el codigo para que quedara como se ve abajo, y de esta manera comienza con el uno y sigue el orden y si ya hay un registro continua con el 2 y sigue con el orden, pero sigue sin tomar el valor de la fila 7 si elimino los registros intermedios entre el 1 y el 7 y me da como resultado un 3, comento que el campo que estoy usando es númerico, no autonúmerico, y si lo pongo como autonúmerico me duplica los valores del registro por ejemplo contando con dos filas con valor 3, y si lo pongo indexado si (sin duplicados) no me guarda el nuevo registro ya que crearia un valor duplicado, por lo cual necesito saber como tomar el ultimo valor del registro y sumarle 1 a ese valor para continuar con el consecutivo auque se hayan borrado registros intermedios no importa si esto lo se puede hacer con el campo en númerico o autonumerico. Gracias por su ayuda y apoyo de antemano.

sub Contador()
with rsEmpleado
.requery
if .bof or .eof then
id_emp = .recordcount + 1
else
id_emp = .recordcount
end if
end with
end sub

arturo, debes darle a la variable id_emp el valor del campo, osea, debes moverte al final de los registros, y ahi le asignas el valor digamos que seria mas o menos:

wirh rs
	.requery
	if .bof or .eof then
		id_emp = 1
	else
		.movelast
		id_emp = !Numeracion + 1
	end if
end with

esto hace que si no hay nada entonces el id es 1 y si ya existen registros entonces toma el valor del ultimo y le suma 1
si tienes 5 registros el proximo seria 5 + 1, osea 6 y si borras los registros 2,3y4, igual será el 6... pero en mi opinion no debes de borrar registros de facturaciones, te recomiendo que utilices flags para darle estados a tus registros, por ejemplo en la tabla de productos, en vez de eliminar un articulo, le asignas un flag que cambie su estado de activo a inactivo, o descontinuado, o como quieras, de igual forma para los registros de ventas, por ejemplo yo utilizo un campo en la tabla de ventas, que lo llamo "Estado" (demasiado obvio?) ajaja, bueno, y tiene los valores: PAGADO, PENDIENTE, AMORTIZADO, VENCIDO, ANULADO, ELIMINADO, DEVOLUCION