Problemas con numero de registros en una tabla

[principefreddy]

hola. aqui tengo unos codigos que solo me permiten guardar 5 registros en una tabla. eso esta bien, por que es lo que quiero. pero, cuando me saldo del formulario y vuelvo a guardar me guarda 5 mas. entonces quisiera que me ayuden a solucionar esto. ya que por un lado esta bien, por que me guarda solo los registros que yo quiero en este caso. son solo 5.. pero no me deberia de seguir gusrdando asi salga y entre muchas veces al fotmulario.

este es en el boton guardar.

Private Sub guardar_Click(index As Integer)
Select Case index
Case 0
'Agregar
If (iContadorRegistro <= 5) Then
'puedo agregar...
deduc2.Recordset.AddNew
deduc2.Recordset(0) = Trim(Text1.Text)
deduc2.Recordset(1) = Abs(Text2.Text)
deduc2.Recordset.Update
deduc2.Refresh
MsgBox "Datos Almacenados Satisfactoriamente", vbInformation, "Guardado"

'Y se incrementa para la próxima...
iContadorRegistro = iContadorRegistro + 1

' se limpian los datos
Text1.Text = ""
Text2.Text = ""

'se almacena la cantidad de registros.
SaveSetting App.EXEName, "CONTADOR", "Registros", iContadorRegistro

Else
'No se pueden agregar...
MsgBox "Imposible agregar registros, cantidad máxima permitida a sido superada.", vbInformation, "Imposible guardar"
End If
Case 1
'Cerrar
End
End Select
iContadorRegistro = CInt(GetSetting(App.EXEName, "CONTADOR", "Registros"))
'End If
End Sub


esto lo coloque en el load
On Error Resume Next
'se inicializan los valores...
Dim iContador As Integer
iContador = CInt(GetSetting(App.EXEName, "CONTADOR", "Registros"))
If (iContador <= 5) Then
iContadorRegistro = iContador
Else
iContadorRegistro = 0
End If

'************************************************* *********
Option Explicit
'Este es el contador de registros...
Private iContadorRegistro As Integer


espero sus opiniones. gracias