Visual Basic

Menuitem1.Text = item(0).menuitem
   MenuItem2.Text = item(1).menuitem
   MenuItem3.Text = item(2).menuitem
   MenuItem4.Text = item(3).menuitem
   MenuItem5.Text = item(4).menuitem
   MenuItem6.Text = item(5).menuitem
   MenuItem7.Text = item(6).menuitem
   MenuItem8.Text = item(7).menuitem
   MenuItem9.Text = item(8).menuitem
   MenuItem10.Text = item(9).menuitem
   MenuItem11.Text = item(10).menuitem

Public Class menuitems
    Public menuitem As String
    Public itemcost As Double

End Class
'Dim totalorderquantity(12) as Integer
Public Class frmtodayscafe
    Inherits System.Windows.Forms.Form

    Public dr As DataRow
    Public item() As menuitems




    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim fileNamex As String = "menu1.txt"
        Dim dirName As String = _
                    Path.GetDirectoryName(Application.ExecutablePath)
        Dim dt As DataTable
        Dim adapter1 As New OleDbDataAdapter

        Using cn As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;" & _
                    "Data Source=" & dirName & ";" & _
                    "Extended Properties=""Text;HDR=Yes;FMT=Delimited""")
            ' Open the connection
            cn.Open()

            ' Set up the adapter
            Using adapter As New OleDbDataAdapter( _
                    "SELECT * FROM " & fileNamex, cn)
                dt = New DataTable("menuitems")
                adapter.Fill(dt)

            End Using

        End Using
        
        Redim item(dt.Rows.Count() - 1)

        Dim drcounter As Integer = 0
        For Each  dr As datarow In dt.Rows
            Debug.Print("{0}    {1}", _
                        dr("Menu Items"), _
                        dr("Item Cost"))
            item(drcounter).menuitem = dr("Menu Items").ToString
            item(drcounter).itemcost = dr("Item Cost").ToString
            drcounter += 1
        Next