run time error

Amigos: Estou criando um relatório simples usando o System.Drawing.Printig e estou tendo dificuldades para imprimir os dados de uma tabela.

Estou usando a seguinte formatação na abertura/leitura do meu recordset:

Private Sub rptIndicacoes(ByVal sender As System.Object, ByVal Relatorio As System.Drawing.Printing.PrintPageEventArgs)

Dim TabAux As SqlClient.SqlDataReader

Dim objCommand As SqlClient.SqlCommand

Dim sql As String

sql = "SELECT CP.COD_INDICACAO, I.DESCR_INDICACAO AS INDICACAO, CP.QUAL AS QUAL, " & _
        "COUNT(CP.COD_INDICACAO) AS TOTAL_REGISTRO " & _
        "FROM TLM_INDICACOES I, TLM_CONTATO_RECEPTIVO CP " & _
        "WHERE I.COD_INDICACAO = CP.COD_INDICACAO " & _
        "and (CP.DATA_CONTATO >= '2006-08-01') " & _
        "GROUP BY CP.COD_INDICACAO, I.DESCR_INDICACAO, CP.QUAL " & _
        "ORDER BY I.DESCR_INDICACAO"

        objCommand = New SqlClient.SqlCommand(sql, New SqlClient.SqlConnection(strConn))
        objCommand.Connection.Open()
        TabAux = objCommand.ExecuteReader(CommandBehavior.CloseConnection)

If (TabAux.HasRows = True) Then
With TabAux

Indicacoes = !INDICACAO

.............

QDO ELE CHEGA EM "Indicacoes = !INDICACAO" DÁ O SEGUINTE

ERRO:

Run-time exception thrown : System.InvalidOperationException - Invalid attempt to read when no data is present

REALMENTE NÃO CONSIGO ENTENDER O Q POSSA ESTAR ACONTECENDO, POIS USO ESTA MESMA ESTRUTIURA EM OUTROS MÓDULOS DO PROJETO...

SE ALGUÉM JÁ PASSOU POR ISSO E PUDER ME AJUDAR EU AGRADECERIA MUITO.