Visual Studio 2015 - Select che restituisce righe e RichTextBox

[gbendin]

Chiedo scusa, ho fatto progressi con la programmazione VB ma adesso ho bisogno di voi.

Ho la seguente query:

SELECT        Portata, Quantita, SpesaPortata
FROM            Ordini
WHERE        (Cassa = ?) AND (MenuFisso = ?)
ORDER BY ID

Ho creato un bottone che al click inserisce in un RichTextBox, di seguito il codice:

Private Sub Button82_Click(sender As Object, e As EventArgs) Handles Button82.Click
        Dim dt As DataTable = OrdiniTableAdapter.StampaOrdine("Cassa1", "NO")

        For Each i In dt.Rows
            Dim temp As String = String.Empty
            For Each col In dt.Columns
                temp += col.Caption + ": " + i(col).ToString() + ", "
            Next
            RichTextBox1.AppendText(temp + IIf(temp.Trim.Length > 0, Environment.NewLine, ""))
        Next
    End Sub

Ho inserito due righe in tabella ma quando clicco sul bottone mi da come risultato:

Cassa: , Tipologia: , Portata: Coperto, Quantita: 1, SpesaPortata: 1, ID: , MenuFisso: , 
Cassa: , Tipologia: , Portata: Antipasto di terra, Quantita: 1, SpesaPortata: 1, ID: , MenuFisso: ,

Come mai NON mi restituisce le sole tre colonne della select ma tutte le colonne della tabella?

Cosa sto sbagliando?