Public Shared Function AddToOrderTbl(ByRef menuItems As ArrayList)
        'received receipt array from order
        Dim adpOrder As New OleDbDataAdapter
        conn.Open()
        MsgBox("number in array is  " & menuItems.Count & " oNum value should be count + 1")
 
        'loop thru array to get ind product ordered to add to order table
        For i As Integer = 0 To menuItems.Count - 1
            Dim newItem As Product
            newItem = menuItems.Item(i)
            Dim itemId As String = newItem.mId
            Dim description As String = newItem.mSize
            Dim oNum As Integer = menuItems.Count + 1
 
 
 
            'Dim sql As String = "INSERT INTO order " & "VALUES ('" & itemId & "', '" & description & "', " & oNum & ")"
 
            Dim sql As String = "INSERT INTO order (productId, productDescription, orderNumber) " & "VALUES ('" & itemId & "', " & Chr(34) & description & Chr(34) & ", " & oNum & ")"
 
 
            'view sql 
            MsgBox(sql)
            Try
 
                adpOrder.InsertCommand = New OleDbCommand(sql, conn)
 
                adpOrder.InsertCommand.ExecuteNonQuery()
 
                ''ListRecords()  ' Invoke ListRecords method
            Catch ee As Exception
                MsgBox(ee.ToString)
            End Try
        Next
 
 
 
        conn.Close()
 
 
    End Function