Asignar valor a objeto de texto desde vb6

[Enea]

Lop7, he tenido que cambiar el bucle porque como me lo habías puesto tu con el
case no funcionaba, no entraba dentro... no sé porque..
Así si me funciona...

Código:

If Report.ParameterFields.Count > 0 Then
    For i = 1 To Report.ParameterFields.Count
      If Report.ParameterFields(i).ParameterFieldName = "Compras" Then
                Report.ParameterFields(i).AddCurrentValue ("Hola")
         End If
        Next i
End If

Muchisimas gracias por todo!!!