Estou recebendo um conjunto de dados por umDataReader e atribuindo a uma string. Agora preciso preencher oDataTable colunas com os campos de consulta. oDataTable está conectado a uma grade para exibir os dados preenchidos.

consulta é:

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

DataTable colunas sãoEmpCode, EmpID, EmpName.

Eu preciso ler a consulta e atribuir às colunas deDataTable e preencha a tabela. Eu tentei como abaixo, mas eu não consigo a saída adequada,

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