Visual Basic - recordset

Hola, estoy desarrollando un organizador de cds y mi problema es el siguiente:
Cuando empiece a meter cds a mi BD quiero que me asigne el numero 1, y que cada vez que introduzca en la BD un nuevo cd me vaya asignando un numero más al anterior comprobando mediante un recordset el último número introducido....y asi sucesivamente.
Tengo este código...pero siempre me asigna el valor 1.
Dim X as Integer
Rs.MoveLast
X= RsRec!CD
If Rs!CD = null Then
Rs!CD = "1"
Else
Rs!CD = X+ 1
End If

Muchas gracias

A simple vista para q la logica de tu codigo es correcta, donde buscaria el error seria al asignar el valor a X, el recordset no es el mismo, ya verficaste eso?

Saludos!!!

Solucionado!
Estaba declarando la variable a nivel de procedimiento no a nivel general..
Gracias

Hola.
Una pregunta... ¿no sería mas sencillo utilizar un campo numérico autoincrementado?.