Как отобразить в DataGridView не таблицу а запрос?

    Dim sSQL As String 'строка SQL-запроса
    Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & My.Application.Info.DirectoryPath & "\birthday.mdb") ' Переменная для подключения базы
    Dim SqlCom As OleDb.OleDbCommand ' Переменная для Sql запросов
    Dim DT As New Data.DataTable ' Таблица для хранения результатов запроса
    Dim DA As OleDb.OleDbDataAdapter ' Адаптер для заполнения таблицы после запроса
    Dim CB As OleDb.OleDbCommandBuilder 'это для последующего обновления таблиц в БД (сохранения изменений из DataGridView) 
   
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'заполняем DataGridView выбранными из таблицы базы данных записями
        sSQL = "SELECT * FROM [kadr]"
        fRet = fnDGVFill(sSQL, dgvBirthday)
End Sub
 
 Function fnDGVFill(ByVal sSQL As String, ByVal dgv As DataGridView) As Boolean 'функция заполнения DataGridView из таблицы базы данных согласно указанному SQL-запросу 
        Try
            DT.Clear() 'Очищаем таблицу
            SqlCom = New OleDb.OleDbCommand(sSQL, Con) ' Указываем строку запроса и привязываем к соединению
            Con.Open() ' Открываем соединение
            SqlCom.ExecuteNonQuery() 'Выполняем запрос
            DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
            DA.Fill(DT) ' Заполняем таблицу результатами
            dgv.DataSource = DT ' Привязываем Грид к источнику данных
            CB = New OleDb.OleDbCommandBuilder(DA)  'это для последующего обновления таблиц в БД (сохранения изменений из DataGridView) 
            Con.Close() ' Закрываем соединение
        Catch ex As Exception
            Return False
        End Try
        Return True
End Function

sSQL = "SELECT * FROM [Ближайшие дни рождения]"
fRet = fnDGVFill(sSQL, dgvBirthday)