Salve,

Io ho un piccolo problema con una listbox dove carico dei record di un database
Il Problema è che ogni record me lo aggiunge due volte

Il Codice che uso è questo:

codice:
Sub popolalista()
        Dim i As Integer
        maxrows = ds.Tables("Movimenti").Rows.Count - 1
        If maxrows > 0 Then
            For i = 0 To maxrows
                data = ds.Tables("Movimenti").Rows(i).Item("DATA")
                data.ToShortDateString()
                ora = ds.Tables("Movimenti").Rows(i).Item("Ora")
                tipo = ds.Tables("Movimenti").Rows(i).Item("Tipologia")
                descr = ds.Tables("Movimenti").Rows(i).Item("Descrizione")
                elemento = data + " " + ora + " " + tipo + " " + descr
                LSTApp.Items.Add(elemento)
            Next
            lblnoapp.Visible = False
            LSTApp.Show()
            BTNDelAPP.Enabled = True
        Else
            LSTApp.Hide()
            lblnoapp.Visible = True
            lblnoapp.Text = "Nessun Appuntamento Presente"
            BTNDelAPP.Enabled = False
        End If
        
    End Sub
Sapete spiegarmi il motivo ?

Grazie Danjel