如何实现InputBox那样的窗体

我想在程序运行期间弹出一个窗体，问用户要一个输入，然后由这个窗体得到返回值，再继续运行下面的代码？ 有两点要求：

（1）这个弹出的窗体里有比较复杂的控件，比如datetimepicker控件，所以用简单的inputbox不中；

（2）要求这个窗体弹出时，我下面的代码不要运行，直到得到由这个窗体返回的值后再运行。

在论坛上发了这个帖子（http://topic.youkuaiyun.com/u/20081009/21/4e363ab5-bf0e-406f-9886-fdd8a0f027d7.html?1226392684）问，再次得到Tiger_Zhao的指点，窍门是：用acDialog 参数！下面是Tiger_Zhao提供的代码，很好使。

Private Sub Command0_Click() On Error GoTo Err_Command0_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmInput" DoCmd.OpenForm stDocName, , , stLinkCriteria, , acDialog MsgBox "窗体关闭" Exit_Command0_Click: Exit Sub Err_Command0_Click: MsgBox Err.Description Resume Exit_Command0_Click End Sub