Вы можете попытаться использовать событие Selecting EntityDataSource, как показано в следующем примере:
Protected Sub EntityDataSource1_Selecting(ByVal sender As Object, ByVal e As EntityDataSourceSelectingEventArgs)
Dim HSNs As String = String.Join(",", ListOfHSNs.Cast(Of String)().ToArray())
Dim query As String = "SELECT VALUE O FROM v_BillData AS O WHERE O.HSNumber IN {'" & HSNs & "'}"
Dim source As EntityDataSource = Nothing
source = TryCast(Me.Page.FindControl("EntityDataSource1"),EntityDataSource)
If (Not source Is Nothing) Then
source.EntitySetName = Nothing
source.CommandText = query
End If
End Sub
Вам следует установить для EntitySetName значение Nothing, поскольку оно выдаст ошибку, если вы ранее установили EntityDataSource.