窗体间的疑难问题

需要程序效果 
MDI窗体语句1 
语句2 
弹出窗体(读取数据库内容,显示在mshflexgrid中),用户选择后返回值 
注: 使用from2.show vbmodal,from1    出现"实时错误 '400'  窗体已打开"
if 值=x then 
  语名3 
else 
  语句4 
end if 
希望给出实例代码