se repite el ultimo registro?

[mamicho]

hola ,

tengo una matriz :


Public Shared matriz(100, 4) As String

Public Shared i As Integer

Public Shared contador As Integer


y dos botones.



boton1: "el cual agrega datos a la matriz y despues a los listbox"

If (matriz(i, 0) Is Nothing) Then



matriz(i, 0) = TextBox17.Text 'codigo epp

matriz(i, 1) = TextBox9.Text 'descripcion

matriz(i, 2) = DropDownList5.SelectedValue.ToString() 'talla

matriz(i, 3) = DropDownList6.SelectedValue.ToString() 'color

matriz(i, 4) = Val(TextBox13.Text) 'cantidad



Dim var As String

var = matriz(i, 1)

lstLista.Items.Add(var)

var = matriz(i, 2)

ListBox1.Items.Add(var)

var = matriz(i, 3)

ListBox2.Items.Add(var)

var = matriz(i, 4)

ListBox3.Items.Add(var)

TextBox13.Text = ""

i = i + 1

End If



boton2:"esto agrega los datos de la matriz(listbox) a la tabla en la base de datos"

Try

Using cn

cn.Open()

For contador = 0 To 99

If (Not (matriz(contador, 0) Is Nothing)) Then



da.InsertCommand.Parameters(0).Value = TextBox16.Text

da.InsertCommand.Parameters(1).Value = matriz(contador, 0)

da.InsertCommand.Parameters(2).Value = matriz(contador, 2)

da.InsertCommand.Parameters(3).Value = matriz(contador, 3)

da.InsertCommand.Parameters(4).Value = matriz(contador, 4)

da.InsertCommand.Parameters(5).Value = 1


da.InsertCommand.ExecuteNonQuery()

Else

Exit For

End If

Next

End Using

Catch ex As Exception

MsgBox(ex.Message)

End Try

lstLista.Items.Clear()

ListBox1.Items.Clear()

ListBox2.Items.Clear()

ListBox3.Items.Clear()

ListBox4.Items.Clear() etc.....





la primera grabada en la bdd es buena, pero cuando kiero hacer el proceso por segunda ves

agrega los registros de la primera y la segunda tambien. como se puede solucionar eso,gracias?