Così:
Public Sub EstrazioneInformazioniDatabase() If Not CONNECTION Is Nothing Then
If (CONNECTION.State And ConnectionState.Open) = ConnectionState.Open Then
CONNECTION.Close()
End If
strSQL = "SELECT * from utenti"
CONNECTION.Open()
cmd = New MySqlCommand(strSQL, CONNECTION)
dr = cmd.ExecuteReader()
Do While dr.Read()
Nome = (dr.Item("Nome").ToString())
Cognome = (dr.Item("Cognome").ToString())
Dim lv As ListViewItem = ListViewElencoProdotti.Items.Add(Nome)
lv.SubItems.Add(Cognome)
Loop
dr.Close()
cmd.Dispose()
CONNECTION.Close()
End If
End Sub


Rispondi quotando