Sub CreateXml(ByVal sql As String)
        Dim Path As Uri = Request.Url
        Dim ServerUrl As String = Path.ToString()
        ServerUrl = ServerUrl.Substring(0, ServerUrl.LastIndexOf("/") + 1)
        Dim schemaDA As SqlDataAdapter = New SqlDataAdapter(sql, Conn)
        Dim ds As DataSet = New DataSet()
        schemaDA.Fill(ds, "tscobr")
        ds.WriteXml(HttpContext.Current.Server.MapPath("tscobr.xml"))
    End Sub