Incremento valore di 1 errato

Salve a tutto il forum avrei il seguente problema:

Ho due form.

Sulla form1 ho le text Numerotextbox, Serietextbox e Codicetextbox sulla form2 ho una datagrid e 2

text Codicetextbox e Numerotextbox.

Aggiungo altre 2 textbox per fare l' incremento + 1 e nell' evento Load della form2 scrivo:

Me.TddtTableAdapter.Fill(Me.AziendaleDataSet.Tddt)
Me.TddtBindingSource.MoveLast()
If CodiceTextBox.Text = "" Then
CodiceTextBox.Text = "0"
TextBox2.Text = CodiceTextBox.Text + 1
Else
TextBox2.Text = CodiceTextBox.Text + 1
End If

Adesso andando in esecuzione apro la form2 e il valore si incrementa correttamente, ma se chiudo la

form2 e passo a form1 e riapro la form2 nella textbox2 mi spunta 1.

Io ho 4 righe sulla tabella, nella textbox2 mi dovrebbe spuntare sempre 5 come il primo avvio ma

non funge.

Dove sta il problema?

Distinti Saluti

Fabio Messina