A dire il vero non ho ben capito cosa ti serve(qual è la freccia di cui parli?)
Hai utilizzato il metodo fill?
OleDbDataAdapter1.Fill(DataSet1)
Ps. non so se è una mia impressione ma usando dataAdapter, DataSet... mi rallenta un pochino, prova ad utilizzare anche questo metodo:
codice:
  Dim m_cmd As OleDb.OleDbCommand
        Dim m_reader As OleDb.OleDbDataReader
        Try
            m_cmd = OleDbConnection1.CreateCommand
            m_cmd.CommandText = "SELECT DISTINCT categoria FROM categori WHERE categoria <> ''"
            OleDbConnection1.Open()
            m_reader = m_cmd.ExecuteReader

            While m_reader.Read
                categoria.Items.Add(m_reader.GetString(0).ToString)
            End While

            m_reader.Close()
        Catch
            MsgBox("Si è verificato un errore durante la creazione dell'elenco delle categorie" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Errore " & Err.Number)
        Finally
            OleDbConnection1.Close()
        End Try
Fammi sapere la tua scelta. Magari smentitemi sulla lentezza dell'utilizzo di DataAdapter e Dataset
Ciao