llenar vector con consulta a access-visual basic

[julioc6969]

Lo que podrias hacer es crear utilizar un dataReader para recorrer los valores que te devuelva la consulta:
Dim consulta As String="Tu Select"
conexion.open()
Dim cmd as New SqlCommand(consulta,conexion)
Dim dr as SqlDataReader=cmd.ExecuteReader()

Dim lista as new ArrayList

While dr.Read() Then
lista.add(dr.Item("columna de la consulta")

End While

Luego te quedan todos los valores en el ArrayList, para poder obtenerlos mediante otro while con lista.item(indice) y lo muestras en el label correspondiente