'VBAOF10.chm - хэлпик
'inna - название модуля
'Построить... - посмотри свойства кнопки
Dim cbar As Variant
Dim myControl As Control
Dim ct As Long
For ct = 1 To CommandBars("Table Design").Controls.Count
If CommandBars("Table Design").Controls(ct).Caption = "&Построить..." Then
Set cbar = CommandBars("Table Design").Controls(ct)
DoCmd.OpenModule "inna" ' некий модуль В XP не катит заменить на открытие чего-то там где есть Построитель выражений
cbar.Execute
Set cbar = Nothing
Exit For
End If
Next ct

виноват копал в mdb
VBE - это что ?