Dúvida em como mostrar os valores usando o comando ExecuteReader

[Tareko]

Boas

A minha ideia é popular a listbox1 com os "Evento" 's que tenham como a "Data_do_Evento" o dia de hoje. O problema é que só consigo obter o resultado da primeira coluna ("ID") com o código que tenho. Quando tendo obter o resultado de outra coluna usando o nome da coluna aparece-me o erro "IdexOutOfRangeException was unhandled" e se tentar mudar o valor do indice de "(queryResult.Item(0)", para "(queryResult.Item(4)" dá o erro "Índice fora dos limites da matriz."

Este é o código que tenho

Imports System.Data.OleDb
Public Class lista
Private Sub lista_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

	Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\BDComdomonium 2.0.accdb")
	Dim queryResult As OleDbDataReader
	con.Open()
	Dim com As New OleDbCommand("SELECT COUNT(*) FROM Agenda WHERE Data_do_Evento =  #" & Today.Date & "#", con)
	queryResult = com.ExecuteReader
	While queryResult.Read()
		Me.ListBox1.Items.Add(queryResult.Item(0))
		'Me.ListBox1.Items.Add(queryResult.Item("Evento"))	<- não funciona
	End While
	queryResult.Close()
	con.Close()
End Sub
End Class

cumprimentos

[Guest]

Só estás a pedir um campo no teu query, o count(*).

Para obteres todas as colunas, ou escreves o nome de cada uma separado por , ou usas um * (Ex: Select * From tabela1)

[Tareko]

Obrigado, já funciona 😛

Ao copiar o código de um execute escalar não tinha alterado essa parte

cumprimentos