Problema Con Un Atabla De Access

[jevalenzuela]

TENGO EL SIGUIENTE CODIGO


Dim codigo As Integer

Set RS = New Recordset
RS.Open "disco_duro", CN
While Not RS.EOF
codigo = RS!num
RS.MoveNext
Wend
codigo = codigo + 1
num = Str(codigo)

CON ESTE SCRIPT LOGRO RECORRER EL CAMPO DE UNA TABLA Y GENERAR UN NUMERO COMO UN AUTO NUMERICO, RECORRE TODO ELCAMPO Y AL FINAL LE SUMA UNO AL ULTIMO DATO Y LO COLOCA EN EL NUEVO DATO QUE INGRESE, CON ESTO ESTA TODO BIEN ME REALIZA TODAS ESAS FUNCIONES, MI PRBLEMA RADICA Y TALVEZ SEA UN DETALLE, EN QUE AL GUARDAR EL NUEVO NUMERO LE AGRUGA UN ESPACIO ES DECIR ME DEBIERA GUARDAR "4" Y ME GUARDA "_4" NO EL CARACTER SINO QUE UN ESPACIO Y POR CULPA DE ESTO NO LO PUEDO RECORRER CON UN BUSCADOR ¿ CUAL SERA EL PROBLEMA? COMO PUEDO SOLUCIONARLO? LO INTENTE CON UNA CAMPO AUTONUMERICO EN ACCESS PERO NO ME RESULTO ASI ES QUE LO HICE CON CODIGO POR FAVOR AYUDENME.....