No puedo declarar variables cuando ya he leído un OleDbDataReader??

[moNTeZIon]

Yo 2005...
Pero... no se... Ya no entiendo nada...
Lo he probado en un formulario nuevo, dentro del mismo proyecto, y me funciona perfectamente!!
He copiado el código de la funcion, tal cual en el evento Form_Load del nuevo formulario, y lo he puesto como formulario de inicio.
Lo depuro, y las variables toman correctamentre los valores.
La verdad, estoy estupefacto.
¿El mismo código no me funciona en una Function? Esta es la funcion donde no me funciona el código. Será por el mero hecho de estar en una función?
Bueno, ya aclaro también que esta funcion se encuentra dentro de un Módulo...
Es que ya no se que explicar...

Código:

    Public Function DameDsConsultaDescuentos(ByVal CodigoCliente As String) As dsConsultaDescuentos
        Dim miConn As New OleDbConnection(Datos.ConnStr)
        Dim miCM As New OleDbCommand("SELECT Tarifa, [Grupo Descuento] AS GrupoDescuento FROM Clientes WHERE Codigo = '" & CodigoCliente & "'", miConn)
        Dim sSQL As String
        miConn.Open()
        Dim dR As OleDbDataReader = miCM.ExecuteReader
        If dR.Read Then
            Dim miTarifa As String = dR("Tarifa")
            Dim miGrupoDescuento As String = dR("GrupoDescuento")
            Dim miDA As New OleDbDataAdapter("", miConn)
            Dim dS As New dsConsultaDescuentos
            sSQL = "SELECT ..."
            miDA.SelectCommand.CommandText = sSQL
            miDA.Fill(dS, "Cabecera")
            sSQL = "SELECT ..."
            miDA.SelectCommand.CommandText = sSQL
            miDA.Fill(dS, "Lineas")
            miConn.Dispose()
            Return dS
        Else
            miConn.Dispose()
            Throw New Exception("El cliente especificado no existe.")
        End If
    End Function

Si que es curioso si...
Gracias!

Un saludo.