刷新本窗体中所有子窗体：

dim xCtrl as control
for each xctrl in me.controls
  if xctrl.controltype=acsubform then
        xctrl.requery
  end if  
next 

刷新本窗体中所有子窗体、组合框、列表框：

dim xCtrl as control
for each xctrl in me.controls
  if xctrl.controltype=acsubform or xctrl.controltype=acComboBox or xctrl.controltype=acListBox then
        xctrl.requery
  end if  
next