Atribuir valores do DataReader para variaveis

Ai galera, to com outra dúvida no seguinte código: Dim drData AS SqlDataReader conn.open()'Abre o DataReader TRY drData = oCmd.ExecuteReader() response.Write("<tr><td colspan='2'>Select Correto!<br></td></tr> ")' IF drData.Read() Then cd_cod = drData("codigo") response.Write("<tr><td colspan='2'>Insert correto!"&cd_cod &"</td></tr> ") END IF CATCH response.Write("<tr><td colspan='2'>Erro no select!<br>line 35</td></tr> ") END TRYO código não funciona, naum dá erro, mais tb naum mostra o resultado, porém se eu comentar a linha que atribui o valor e colocar o 'drData("codigo")' no lugar do 'cd_cod', funciona. PQ?