Предложение Group by не работает в combobox

---

Когда я нажимаю на поле со списком в событии загрузки формы, никакие данные не отображаются в поле со списком.

Что я уже пробовал:

Я пишу метод ниже и вызываю его в событии загрузки формы, но мое поле со списком не показывает никаких элементов..
У меня есть две таблицы в моей базе данных sql с именами Faculty и Attn.

Private Sub Load_Faculty()
        Dim cn As New OleDb.OleDbConnection(cnSettings2)
        Dim cmd As New OleDb.OleDbCommand
        Dim reader As OleDb.OleDbDataReader
        Try
            cn.Open()
            Dim sql As String
            sql = "Select Faculty from Faculty,Attn where Faculty.Fac_Id =Attn.Fac_Id and Attn.ForMnth ='" & CmbMnth.Text & "' and Attn.ForYr ='" & TxtYear.Text & "' group by Faculty"
            cmd = New OleDb.OleDbCommand(sql, cn)
            reader = cmd.ExecuteReader
            While reader.Read
                Dim id = reader.Item("Faculty")
                CmbFac.Items.Add(id)
            End While
            cn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

---