Help in inserting data into a table

 

Protected Sub Order_Button_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Order_Button.Click

 

        Dim
objConnection As SqlConnection

        Dim
objDataCommand As SqlCommand

 

        Dim
orderid, branchidsend, branchidreceive As String

        Dim
orditemdate As String

 

        Dim
sSQL As String

        Dim
ConnectionString As String

 

        orderid = orderidtxt.Text

        branchidsend =
Branchid_send_DropDownList.Text

        branchidreceive =
Branchid_receive_DropDownList.Text

        orditemdate = orditemdatetxt.Text

 

ConnectionString = WebConfigurationManager.ConnectionStrings("UCSConnectionString").ConnectionString

 

        objConnection = New SqlConnection(ConnectionString)

        objConnection.Open()

 

        sSQL = "Insert
into Order (order_id, Br_id_send, Br_id_receive)" & _

        "values('"
& orderid & " ', ' " &
branchidsend & " ',' " &
branchidreceive & " ')"

 

        objDataCommand = New SqlCommand(sSQL, objConnection)

        objDataCommand.ExecuteNonQuery()

 

        sSQL = "Insert
into Ordered_Item (OrdI_dt)" & _

        "values('"
& orditemdate & " ')"

 

        objDataCommand = New SqlCommand(sSQL, objConnection)

        objDataCommand.ExecuteNonQuery()

 

        objConnection.Close()

 

        msgLabel.Text = "Your order has been submitted successfuly, Thank you."

 

    End Sub