SQL Server - error en la cadena de pagina web a server sql

Imports System.Data

Imports System.Data.SqlClient

Imports System.IO

Imports System.Net

Partial Class View_Inicio

    Inherits System.Web.UI.Page

    Dim con As New SqlConnection

    Dim mycommand As SqlCommand

    Dim cn As String = ConfigurationManager.ConnectionStrings("TPVConexion").ConnectionString

    Protected Sub DropDownList1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DropDownList1.SelectedIndexChanged

    End Sub

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim largo As String = DropDownList1.Text

        Dim Ancho As String = DropDownList2.Text

        Dim cantidad As String = DropDownList3.Text

        Dim capas As String = DropDownList4.Text

        Dim cpath As String = FileUpload1.FileName

        Dim ext As String = Path.GetExtension(FileUpload1.FileName)

        If ext <> ".pdf" And ext <> ".jpg" And ext <> ".jpge" And ext <> ".tif" And ext <> ".png" Then

            Label5.Visible = True

            Exit Sub

        End If

        Dim Archivo As String = "Circuito" & Format(Now, "yyyyMMdd")

        Dim Arc As String = Path.GetFileName(FileUpload1.PostedFile.FileName)

        inserccion(largo, Ancho, cantidad, capas)

        Dim Da As SqlDataAdapter

        Dim Ds As DataTable

        con = New SqlConnection(ConfigurationManager.ConnectionStrings("TPVConexion").ConnectionString)

        con.Open()

        Dim Querys As String = "SELECT MAX(FolioCliente) As 'FolioCliente' FROM [TPVWeb].[dbo].[datospedido]"

        Da = New SqlDataAdapter(Querys, con)

        Ds = New DataTable()

        Da.Fill(Ds)

        If Ds.Rows.Count > 0 Then

            Dim Ruta As String = Path.Combine(Server.MapPath("~\ImagenesClientes\"), Archivo & "_" & Ds.Rows(0).Item("FolioCliente") & ext)

            FileUpload1.PostedFile.SaveAs(Ruta)

            Dim Qry As String = "Update datospedido set [path] = '" & Ruta & "' where [FolioCliente]=" & Ds.Rows(0).Item("FolioCliente")

            Try

                mycommand = New SqlCommand(Qry, con)

                mycommand.ExecuteNonQuery()

                Session("FolioPedido") = Ds.Rows(0).Item("FolioCliente")

                Response.Redirect("~/View/Inicio2.aspx")

            Catch ex As Exception

                con.Close()

            Finally

                con.Close()

            End Try

        End If

    End Sub

    Function inserccion(ByVal largo As String, ByVal ancho As String, ByVal cantidad As String,

                        ByVal capas As String) As Boolean

        Dim query As String = String.Empty

        query &= "INSERT INTO datospedido ([largo],[ancho],[cantidad],[capas],[path])"

        query &= "VALUES ('" & largo & "','" & ancho & "','" & cantidad & "','" & capas & "','" & "" & "')"

        Try

            con = New SqlConnection(ConfigurationManager.ConnectionStrings("TPVConexion").ConnectionString)

            con.Open()

            mycommand = New SqlCommand(query, con)

            mycommand.ExecuteNonQuery()

        Catch ex As Exception

            ex.ToString()

        Finally

            con.Close()

        End Try

        Return False

    End Function

End Class