Ciclo for to...next

[Legend81]

Sto creando un programma che, inserendo file mp3, salva nel database il nome e la path. Per facilitarne l'uso all'utente ho inserito la proprietà multiselect dell'oggetto filelistbox su "2-extended" e poi uso il ciclo for to...next per ripetere le azioni su tutti i file selezionati. NON FUNZIONA!!!
il codice che ho inserito è questo:

Private Sub command1_click()
Dim i
i = File1.ListIndex
    If File1.ListIndex <= 0 Then
        MsgBox "selezionare file"
    Else
        If Command1.Caption = "Aggiungi" Then
            For i = 0 To File1.ListIndex - 1
                Data1.Recordset.AddNew
                Text1.Text = File1.FileName
                Text2.Text = "Sconosciuto"
                Text3.Text = "Sconosciuto"
                Text4.Text = "Sconosciuto"
                Text5.Text = "Sconosciuto"
                Label4.Caption = File1.Path
                Command1.Caption = "Annulla"
                Data1.Recordset.Update
                Command1.Caption = "Aggiungi"
            Next
        Else
            Data1.Recordset.CancelUpdate
            Command1.Caption = "Aggiungi"
        End If
    End If
End Sub

altri mi hanno detto che devo usare come condizione di uscita dal ciclo il raggiungimento dell'ultimo file, ma non so come codificarlo!

Per favore aiuto!

:master:
ahio! mi hai graffiato...GATTO DI M....A