Чтение из базы данных и заполнение DataTable

Я получаю набор данных с помощью DataReaderи присваиваю строке. Теперь мне нужно заполнить столбцы DataTableполями запроса. Таблица DataTableподключена к сетке для отображения заполненных данных.

запрос:

strSQL = "SELECT EmpCode,EmpID,EmpName FROM dbo.Employee

DataTableстолбцы: EmpCode, EmpID, EmpName.

Мне нужно прочитать запрос и присвоить его столбцам DataTableи заполнить таблицу. Я попытался, как показано ниже, но не получил правильного вывода:

Me.DtShifts.Tables("NonAllocated").Clear()
Me.DtShifts.Tables("NonAllocated").Load(dr)