vb.net - SQLリーダーを使用するそれぞれについて

Question

Departement ID（DeptID）や販売されたarticales（qtysoldtoday）のような列で、5分ごとにシートを生成して優れているというレポートがあります。VBアプリケーションでこのExcelファイルを開き、すべての部門IDを読み取り、トップセラーを選択してDataGridViewerにバインドする必要があります。これが私のExcelシートの簡単なバージョンです。

DeptIDArticles数量

01バナナ2

                   apple              3

02オレンジ4

                   apple              5

これが機能しない私のコードです

WithEvents bsData1 As New BindingSource
Private FileName1 As String = IO.Path.Combine(Application.StartupPath, "C:\WIN\SA022.xls")
Private SheetName1 As String = "Data"
Private ConnectionNoHeader1 As String = "provider= Microsoft.ACE.OLEDB.12.0; data source='{0}';Extended Properties=""Excel 12.0; HDR=yes;"""


Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim Dept(0 To 2) As String
    Dept(0) = "01"
    Dept(1) = "02"
     Dim DeptNum As String


Using cn As New OleDbConnection With {.ConnectionString = String.Format(ConnectionNoHeader1, FileName1)}
        cn.Open()
        For Each DeptNum In Dept
            Dim cmd As OleDbCommand = New OleDbCommand(
                <Text>
                SELECT 
                    DeptID,
                         Article,
                              QTYSOLDTHISDAY


                FROM [<%= SheetName1 %>$]


WHERE DeptID = DeptNum and QTYSOLDTHISDAY=(select max(QTYSOLDTHISDAY) from [<%= 

SheetName1 %>$] where DeptID =  DeptNum )
</Text`>.Value,
                        cn
                )
                Dim dt As New DataTable
                dt.Load(cmd.ExecuteReader)
                dt.AcceptChanges()
                bsData1.DataSource = dt
                DataGridView2.DataSource = bsData1
            Next DeptNum
        End Using
    End Sub

以下のコメントでOPが述べている問題：

次のループでは、gridviewには何も表示されません。selectステートメントに部門IDを入力するだけで機能しますが、すべての部門IDに対してそれを行うことはできません。