maximo valor en una tabla

[analoyra]

POr favor cerrar este post, lo publique 2 veces por equivocacion.. perdon!!

Hola, quiero saber cual es el valor maximo en una tabla
Rs.Open "Select max(idauditoria) from auditoria", cn, adOpenDynamic, adLockOptimistic
num = CStr(Rs(0) + 1)
pc = PCName
fecha = CStr(Date)
hora = CStr(Time)
rsAux.Open "insert into auditoria (idauditoria,fechaa,horaa, ApeyNom, idRegistro,accion,terminal,tabla ) values ('" + num + "', '" + fecha + "','" + hora + "','" + Usuario + "','" + aux + "','Alta','" + pc + "' ,'TComp') ", cn, adOpenDynamic, adLockOptimistic

esta todo bien hasta que llega al 10, luego la consulta encuentra el 9 ...... no encuantra ningun valor de 2 digitos
como lo puedo solucionar?