form3.vb

Its a Computer based book

                        L8.Text = dr("c8")
                        L16.Text = dr("m8")
                        L17.Text = dr("c9")
                        L25.Text = dr("m9")
                        L18.Text = dr("c10")
                        L26.Text = dr("m10")
                        L19.Text = dr("c11")
                        L27.Text = dr("m11")
                        L20.Text = dr("c12")
                        L28.Text = dr("m12")
                        L21.Text = dr("c13")
                        L29.Text = dr("m13")
                        L22.Text = dr("c14")
                        L30.Text = dr("m14")
                        L23.Text = dr("c15")
                        L31.Text = dr("m15")
                        L24.Text = dr("c16")
                        L32.Text = dr("m16")
                        L33.Text = dr("c17")
                        L41.Text = dr("m17")
                        serv.Text = dr("serv")
                        RichTextBox1.Text = dr("method")

                    End While
                Else
                    If ComboBox1.SelectedItem = "Ice-cream" Then
                        ' ListBox1.Items.Clear()
                        str = "select * from ice_cream where recipe_name= '" & (ListBox1.SelectedItem) & "'"
                        Dim sqlcom As New SqlCommand(str, sqlcon)
                        Dim dr As SqlDataReader
                        dr = sqlcom.ExecuteReader()
                        While dr.Read()
                            L1.Text = dr("c1")
                            L9.Text = dr("m1")
                            L2.Text = dr("c2")
                            L10.Text = dr("m2")
                            L3.Text = dr("c3")
                            L11.Text = dr("m3")
                            L4.Text = dr("c4")
                            L12.Text = dr("m4")
                            L5.Text = dr("c5")
                            L13.Text = dr("m5")
                            L6.Text = dr("c6")
                            L14.Text = dr("m6")
                            L7.Text = dr("c7")
                            L15.Text = dr("m7")
                            L8.Text = dr("c8")
                            L16.Text = dr("m8")
                            L17.Text = dr("c9")
                            L25.Text = dr("m9")
                            serv.Text = dr("serv")
                            RichTextBox1.Text = dr("method")

                        End While
                    Else
                        If ComboBox1.SelectedItem = "Rice" Then
                            ' ListBox1.Items.Clear()
                            str = "select * from rice where recipe_name= '" & (ListBox1.SelectedItem) & "'"
                            Dim sqlcom As New SqlCommand(str, sqlcon)
                            Dim dr As SqlDataReader
                            dr = sqlcom.ExecuteReader()
                            While dr.Read()
                                L1.Text = dr("c1")
                                L9.Text = dr("m1")
                                L2.Text = dr("c2")
                                L10.Text = dr("m2")
                                L3.Text = dr("c3")
                                L11.Text = dr("m3")
                                L4.Text = dr("c4")
                                L12.Text = dr("m4")
                                L5.Text = dr("c5")
                                L13.Text = dr("m5")
                                L6.Text = dr("c6")
                                L14.Text = dr("m6")
                                L7.Text = dr("c7")
                                L15.Text = dr("m7")
                                L8.Text = dr("c8")
                                L16.Text = dr("m8")
                                L17.Text = dr("c9")
                                L25.Text = dr("m9")
                                L18.Text = dr("c10")
                                L26.Text = dr("m10")
                                L19.Text = dr("c11")
                                L27.Text = dr("m11")
                                L20.Text = dr("c12")
                                L28.Text = dr("m12")
                                L21.Text = dr("c13")
                                L29.Text = dr("m13")
                                L22.Text = dr("c14")
                                L30.Text = dr("m14")
                                L23.Text = dr("c15")
                                L31.Text = dr("m15")
                                L24.Text = dr("c16")
                                L32.Text = dr("m16")
                                L33.Text = dr("c17")
                                L41.Text = dr("m17")
                                L34.Text = dr("c18")
                                L42.Text = dr("m18")
                                L35.Text = dr("c19")
                                L43.Text = dr("m19")
                                serv.Text = dr("serv")
                                RichTextBox1.Text = dr("method")

                            End While
                        Else
                            If ComboBox1.SelectedItem = "Salads and Raita" Then
                                ' ListBox1.Items.Clear()
                                str = "select * from Salads_and_Raita where recipe_name= '" & (ListBox1.SelectedItem) & "'"
                                Dim sqlcom As New SqlCommand(str, sqlcon)
                                Dim dr As SqlDataReader
                                dr = sqlcom.ExecuteReader()
                                While dr.Read()
                                    L1.Text = dr("c1")
                                    L9.Text = dr("m1")
                                    L2.Text = dr("c2")
                                    L10.Text = dr("m2")
                                    L3.Text = dr("c3")
                                    L11.Text = dr("m3")
                                    L4.Text = dr("c4")
                                    L12.Text = dr("m4")
                                    L5.Text = dr("c5")
                                    L13.Text = dr("m5")
                                    L6.Text = dr("c6")
                                    L14.Text = dr("m6")
                                    L7.Text = dr("c7")
                                    L15.Text = dr("m7")
                                    L8.Text = dr("c8")
                                    L16.Text = dr("m8")
                                    L17.Text = dr("c9")
                                    L25.Text = dr("m9")
                                    L18.Text = dr("c10")
                                    L26.Text = dr("m10")
                                    serv.Text = dr("serv")
                                    RichTextBox1.Text = dr("method")

                                End While
                            Else
                                If ComboBox1.SelectedItem = "Sandwich" Then
                                    ' ListBox1.Items.Clear()
                                    str = "select * from Sandwiches where recipe_name= '" & (ListBox1.SelectedItem) & "'"
                                    Dim sqlcom As New SqlCommand(str, sqlcon)
                                    Dim dr As SqlDataReader
                                    dr = sqlcom.ExecuteReader()
                                    While dr.Read()
                                        L1.Text = dr("c1")
                                        L9.Text = dr("m1")
                                        L2.Text = dr("c2")
                                        L10.Text = dr("m2")
                                        L3.Text = dr("c3")
                                        L11.Text = dr("m3")
                                        L4.Text = dr("c4")
                                        L12.Text = dr("m4")
                                        L5.Text = dr("c5")
                                        L13.Text = dr("m5")
                                        L6.Text = dr("c6")
                                        L14.Text = dr("m6")
                                        L7.Text = dr("c7")
                                        L15.Text = dr("m7")
                                        L8.Text = dr("c8")
                                        L16.Text = dr("m8")
                                        L17.Text = dr("c9")
                                        L25.Text = dr("m9")
                                        L18.Text = dr("c10")
                                        L26.Text = dr("m10")
                                        serv.Text = dr("serv")
                                        RichTextBox1.Text = dr("method")

                                    End While
                                Else
                                    If ComboBox1.SelectedItem = "Seafood" Then
                                        ' ListBox1.Items.Clear()
                                        str = "select * from seafood where recipe_name= '" & (ListBox1.SelectedItem) & "'"
                                        Dim sqlcom As New SqlCommand(str, sqlcon)
                                        Dim dr As SqlDataReader
                                        dr = sqlcom.ExecuteReader()
                                        While dr.Read()
                                            L1.Text = dr("c1")
                                            L9.Text = dr("m1")
                                            L2.Text = dr("c2")
                                            L10.Text = dr("m2")
                                            L3.Text = dr("c3")
                                            L11.Text = dr("m3")
                                            L4.Text = dr("c4")
                                            L12.Text = dr("m4")
                                            L5.Text = dr("c5")
                                            L13.Text = dr("m5")
                                            L6.Text = dr("c6")
                                            L14.Text = dr("m6")
                                            L7.Text = dr("c7")
                                            L15.Text = dr("m7")
                                            L8.Text = dr("c8")
                                            L16.Text = dr("m8")
                                            L17.Text = dr("c9")
                                            L25.Text = dr("m9")
                                            L18.Text = dr("c10")
                                            L26.Text = dr("m10")
                                            L19.Text = dr("c11")
                                            L27.Text = dr("m11")
                                            L20.Text = dr("c12")
                                            L28.Text = dr("m12")
                                            L21.Text = dr("c13")
                                            L29.Text = dr("m13")
                                            L22.Text = dr("c14")
                                            L30.Text = dr("m14")
                                            L23.Text = dr("c15")
                                            L31.Text = dr("m15")
                                            serv.Text = dr("serv")
                                            RichTextBox1.Text = dr("method")

                                        End While
                                    Else
                                        If ComboBox1.SelectedItem = "Vegetable" Then
                                            ' ListBox1.Items.Clear()
                                            str = "select * from vegetable where recipe_name= '" & (ListBox1.SelectedItem) & "'"
                                            Dim sqlcom As New SqlCommand(str, sqlcon)
                                            Dim dr As SqlDataReader
                                            dr = sqlcom.ExecuteReader()
                                            While dr.Read()
                                                L1.Text = dr("c1")
                                                L9.Text = dr("m1")
                                                L2.Text = dr("c2")
                                                L10.Text = dr("m2")
                                                L3.Text = dr("c3")
                                                L11.Text = dr("m3")
                                                L4.Text = dr("c4")
                                                L12.Text = dr("m4")
                                                L5.Text = dr("c5")
                                                L13.Text = dr("m5")
                                                L6.Text = dr("c6")
                                                L14.Text = dr("m6")
                                                L7.Text = dr("c7")
                                                L15.Text = dr("m7")
                                                L8.Text = dr("c8")
                                                L16.Text = dr("m8")
                                                L17.Text = dr("c9")
                                                L25.Text = dr("m9")
                                                L18.Text = dr("c10")
                                                L26.Text = dr("m10")
                                                L19.Text = dr("c11")
                                                L27.Text = dr("m11")
                                                L20.Text = dr("c12")
                                                L28.Text = dr("m12")
                                                L21.Text = dr("c13")
                                                L29.Text = dr("m13")
                                                L22.Text = dr("c14")
                                                L30.Text = dr("m14")
                                                L23.Text = dr("c15")
                                                L31.Text = dr("m15")
                                                serv.Text = dr("serv")
                                                RichTextBox1.Text = dr("method")

                                            End While
                                       
                                        End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
        End If

        If Val(L1.Text) >= 1000 Then
            L1.Text = Val(L1.Text) / 1000
            kg1.Text = "Kg"
        Else
            kg1.Text = ""

        End If

        If Val(L2.Text) >= 1000 Then
            L2.Text = Val(L2.Text) / 1000