ayuda con variable en datareport

[cadrogui]

estoy tratando de mandar una variable a un datareport en tiempo de ejecucion, lo estoy tratando de la siguiente manera:
esto esta en un modulo de clase..

Function escribe_label()

Dim lb As RptLabel
lb = Getlabel("Sección2", "Etiqueta2")
With lb
.Caption = "texto nuevo en el label"
.Visible = True
End With

End Function

y en el boton tengo esto:

Private Sub Command1_Click()
On Error GoTo error
DataEnvironment1.Command1
DataReport1.Show

Dim st As Class1
st.escribe_label

Exit Sub
error:
MsgBox Err.Number & "-" & Err.Description
End Sub


me da el error :

91-variable de tipo object o la variable de bloque With no esta establecida

pero no cambia el label del reporte....

salu2