consulta sql con select

[guillebomtrasmiti]

Dim nuevobotonProd As New Button

'--------------------------------------------------------------------
Dim conlumna As New DataColumn
conlumna.ColumnName.Contains("Producto")


cmd.Connection = conexion
cmd.CommandText = "select Producto from Productos ORDER BY Orden"

adapta.SelectCommand = cmd
adapta.Fill(undataset, "Productos")

For i As Integer = 0 To undataset.Tables("Productos").Rows.Count - 1
For j As Integer = 0 To undataset.Tables("Productos").Columns.Count - 1
nuevobotonProd.Text = cmd.CommandText
nuevobotonProd.BackColor = Color.Khaki
nuevobotonProd.Location = New Point(104, 320)
nuevobotonProd.Size = New Size(87, 54)
nuevobotonProd.Text = (undataset.Tables("Productos").Rows(i).Item(j).ToS tring)
Me.Controls.Add(nuevobotonProd)
Next
Next
he hecho esto pero sigue sin salirme bien...ayuda por favorrr