Visual Basic - secuencia

tengo problema con mi secuencia, cuando llega a un determinado numero se queda inhivida y no sigue incrementandose.

la secuencia que tengo es la siguiente:

Dim db As Database, rs As Recordset
Set db = OpenDatabase(":c\factura.mdb")
Set rs = db.OpenRecordset("cliente", dbOpenTable)
Dim A As Integer
With rs

If (.BOF And .EOF) Then
TXTCODPRO.Text = 1
Else
.MoveLast

TXTCODPRO.Text = rs!cod_propietario + 1
TXTCODPRO.Text = "0" + TXTCODPRO.Text
End If
End With


si alguien me puede ayudar.
gracias

A simple vista me pareciera que el problema esta mas en el MDB que la ruta, a parte de ineficiente no tiene mas nada recordcount cuenta el numero de registro y te lo da directamente si habres como snapshot si puedes un registro entonces te recomiendo que hagas que revises las Sintaxis SQL como por ejemplo COUNT