Например вот так:

Dim x_form As Form
For Each x_form In Forms
If "имя_формы" = CStr(x_form.Name) Then
x_form.ОбновитьПоляФормы
Exit For
End If
Next x_form