Visual Basic - problema con insert into

buenas les tengo una pregunta!!
le comento!,estoy haciendo unas cargas y derrepente empezo a poner el mismo codigo......
aca abajo les dejo parte del codigo:

rs.Open "SELECT * FROM mstr_cli", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
rs.MoveFirst
While Not rs.EOF
If Txtrs.Text = rs!cli_rs Then
MsgBox "cliente ya está ingresado", , "ERROR"
rs.Close
Exit Sub
End If
rs.MoveNext
Wend
rs.Close
rs.Open "INSERT INTO mstr_cli VALUES ('" & Txtcod & "','" & Txtrs & "', '" & TxtDom & "', '" & Txtloc & "', '" & Txtcp & "', '" & Txttel1 & "','" & Txttel2 & "','" & Txtcuit & "', '" & CmbIVA & "', '" & Txtcont & "')", cn, adOpenDynamic, adLockOptimistic
unload Me
end if

previamente a eso lo que hago es cargar en txtcod el numero consecutivo al registro anteriormente cargado......el problema es ke llego a 61 y empezo a repetir el codigo 62 en todas las demas cargas siguiente....

ahhh me olvidaba cuando me carga el dato lo hace en la primera posicion de la tabla no al final.

si alguien tiene idea de porque pasa esto le agradeceria que me lo hiciese sabe....

desde ya muchas gracias