estou tendo o seguinte problema...

fiz um sistema de controle de protocolo. quando ele grava uns 400 dados o campo protocolo esta repetindo um certo numero. tenho que imprimir os meus relatorios e deletar toda vez o bd. segue o codigo.

 

Private Sub cmdincluir_Click()
cmdincluir.Enabled = False
cmdalterar.Enabled = False
cmdconsultar.Enabled = False
cmdexcluir.Enabled = False
cmdanterior.Enabled = False
cmdproximo.Enabled = False
cmdprimeiro.Enabled = False
cmdultimo.Enabled = False
cmdgravar.Enabled = True
cmdsair.Enabled = True
cmdcancelar.Enabled = True

LimpaFormulario
Frame1.Enabled = True
cmbescola.SetFocus

 

Dim cod As Integer
txtcodigo.Text = Format(txtcodigo.Text, "000000")

TBProtocolo.Seek "=", txtcodigo.Text

If TBProtocolo.NoMatch = False Then
TBProtocolo.AddNew

cod
cod = TBProtocolo.RecordCount
txtcodigo = cod + 1
txtcodigo.Text = Format(txtcodigo.Text, "000000")
Else
    TBProtocolo.AddNew
    cod = TBProtocolo.RecordCount
    txtcodigo = cod + 1
    txtcodigo.Text = Format(txtcodigo.Text, "000000")
End If

    txtcodigo.Enabled = False