adding table entries

Hello all,

When i add table entries I get i times the last entry i added.

Here is the code:

Overrides Protected Sub Zrfc_Projectdata_Import ( _

ByVal Aufnr As String, ByRef Test As String, ByRef Kostprj_Tab As ZPRJAUERTable)

' TODO: add your server code here

Dim i

Dim Kostprj As New ZPRJAUER

For i = 1 To 10

Kostprj.Bmnr = i

Kostprj_Tab.Add(Kostprj)

Next

End Sub

Am i doing anything wrong here?

Thanks in advance