動的Where句を使用したLinq動的エラー

gridviewのフィルター/順序付けに使用される4つのドロップダウンリストがあります。

最初の3つのドロップダウンのいずれかが0以外の選択された値を持つ場合、WhereFlagはTrueに設定されます。 4番目のドロップダウンは、グリッドを並べ替える列を指定するために使用されます。

gridviewをデータバインドするための私のコードはSystem.Linq.Dynamicを使用し、以下に示します...

Dim dc As New DiaryDataContext

    If WhereFlag = False Then
        'This section works...

        Dim AList = dc.D_AreaSubAreas _
                    .OrderBy(ddl_SortBy.SelectedValue)

        Dim dl As List(Of D_AreaSubArea)
        dl = AList.ToList

        dl.Insert(0, New D_AreaSubArea With {.Ref = 0,
                                            .Area = "",
                                            .SubArea = "",
                                            .Allocation = "Allocation...",
                                            .Redundant = False})

        gv_AreaSubArea.DataSource = dl
        gv_AreaSubArea.DataBind()      
        'Gridview successfully binds
        'If ddl_SortBy value is changed... Gridview binds OK.
    Else
        'This section gives error...

        Dim WhereBuild As New StringBuilder

        If ddl_AreaFilter.SelectedIndex <> 0 Then
            WhereBuild.Append("Area = '" & ddl_AreaFilter.SelectedValue & "'")
            AndFlag = True
            End If

        If ddl_SubAreaFilter.SelectedIndex <> 0 Then
            If AndFlag = True Then
                WhereBuild.Append(" AND ")
                End If
            WhereBuild.Append("SubArea = '" & ddl_SubAreaFilter.SelectedValue & "'")
            AndFlag = True
            End If

        If ddl_AllocFilter.SelectedIndex <> 0 Then
            If AndFlag = True Then
                WhereBuild.Append(" AND ")
                End If
            WhereBuild.Append("Allocation = '" & ddl_AllocFilter.SelectedValue & "'")
        End If

        'ERROR HERE
        Dim AList = dc.D_AreaSubAreas _
                    .Where(WhereBuild.ToString) _
                    .OrderBy(ddl_SortBy.SelectedValue)
        'END ERROR

        Dim dl As List(Of D_AreaSubArea)
        dl = AList.ToList

        dl.Insert(0, New D_AreaSubArea With {.Ref = 0,
                                            .Area = "",
                                            .SubArea = "",
                                            .Allocation = "Allocation...",
                                            .Redundant = False})


        gv_AreaSubArea.DataSource = dl
        gv_AreaSubArea.DataBind()


    End If

私が得るエラーは、動的なwhere句です。私が得るエラーは

ParseExceptionはユーザーコードによって処理されません。文字リテラルは正確に1文字を含む必要があります

ElseフォークのクエリAListを指します。それとIfフォークのクエリの唯一の違いは、Where句の追加です...しかし、私は自分のコードの何が問題かを推測することができませんでした。 AHA。