Già provato, ma niente da fare

Private Sub DataReport_Initialize()
TextBox1.Text = varIDcliente
End Sub