Listview problem

Hvad gør jeg galt i følgende:

DB.Recordset.MoveFirst
Do While Not DB.Recordset.EOF
    With ListView1.ListItems.Add
    .Text = DB.Recordset.Fields("navn")
    .SubItems(1) = DB.Recordset.Fields("type")
    .SubItems(2) = DB.Recordset.Fields("frist")
    End With
DB.Recordset.MoveNext
Loop

Den melder fejl i den første subitem...