SELECT QUE ME DA ERROR

Tengo una consulta SQL que no me sale, me da un error y creo que está bien.
Esta misma consulta la hago en Foxpro y no me da problemas

Dim SelSQL As String = "SELECT DISTINCT MAX(codtas)FROM listin"
'Selecciona el codigo mas alto de usuario.


Try
conection.Open()
dReader = oCommand.ExecuteReader && EN ESTE MOMENTO EJECUTA LA
CONSULTA Y EMITE ESTE ERROR CUANDO HAGO UN SEGUIMIENTO

EL ERROR ES ESTE: dReader("CodTas") Se inició una excepción en tiempo
de ejecución: System.IndexOutOfRangeException - CodTas


Puede alguién decirme porque me ocurre esto. Solo quiero coger el valor mas
alto de un campo de una tabla.