Uso de INSERT INTO en Visual Basic

[alegab583]

buenas les tengo una pregunta!!
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 esto lo que hago es cargar en txtcod el numero consecutivo al registro anteriormente cargado......el problema es que llego a 61 y empezo a repetir el codigo 62 en todas las demas cargas siguiente....

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

desde ya muchas gracias