list of items only adds one new item
<p>Following is the code I am attempting to use to import data from a database into a list of objects (from a class).   However, it only gets one item in the list when the loop finishes.  I used to place the data into a ListBox instead of a dynamic list of objects and that worked, so the data is being retrieved.</p>

<pre><code>Public Class AnItem
    Public Item As String
    Public TheType As String
End Class

Public MyLists As List(Of AnItem) 

Private Sub AddToList()
    Dim i as integer
    Dim fs as AnItem

    For i = 0 To numberOfDataBaseitems
        Dim fs as new AnItem
        'fs.item = 'item 1'
        'fs.type = 'box'
        fs = getData(i)

        'ONLY one ITEM IS ADDED!!!!!!??????
        MyLists = New List(Of AnItem)  
        MyLists.Add(fs)
    Next I
End Sub
</code></pre>