Inserire un Database Access e Recuperare i risultati della q

'Inserire un Database Access e Recuperare i risultati della query nella listbox

    'Selezionare il database
    Dim database As String = "Database.accdb"

    'avviare la connessione al database selezionato
        Using connection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + database)
        'creare la query e aprire la connessione
            Dim queryString As String = "SELECT ID, Nome, Anno, TIPO, Lingua FROM Games ORDER BY Nome"
            Dim command As New OleDbCommand(queryString, connection)
            connection.Open()

        'riempire la listbox con gli elementi della query
            Dim reader As OleDbDataReader = command.ExecuteReader()
            While reader.Read()
                ListBox1.Items.Add(reader.Item("ID").ToString + " | [" + reader.Item("TIPO") + "] " + reader.Item("Nome") + " (" + reader.Item("Anno") + ") - " + reader.Item("Lingua"))
            End While
            ' always call Close when done reading.
            reader.Close()

        'chiudere la connessione
            connection.Close()
        End Using