Function EditShape(map As Map, args As GeoCollection(Of Object)) As String
   Dim sqlLayer As New MsSql2008FeatureLayer(ConfigurationManager.ConnectionStrings("Connection").ToString, "TableName", "TableId")
        sqlLayer.Open()
        Dim featureIds As New Collection(Of String)() From { _
            "1" _
        }
        sqlLayer.Open()
        Dim featuresJson As String = MapHelper.ConvertFeaturesToJson(sqlLayer.FeatureSource.GetFeaturesByIds(featureIds, ReturningColumnsType.NoColumns))
        sqlLayer.Close()
        Return featuresJson
    End Function