Next try this:

Call OpenForm sForm
Sub OpenForm(sName as string)
Dim f as Form
For each f in Forms
if f.Name = sName then
f.open
exit for
End if
next
End sub

------------------
Regards,
Vit

[This message has been edited by Vit (edited 08-25-1999).]