vb 主窗口之前出现对话框

你可以先设计一个窗体，并将工程--》属性中的启动对象设置为该窗体。在窗体里面添加文本控件，要求用户输入相关的信息，并进行判断。若通过则
主窗口.load
主窗口.Visible =True
unload me
应该就可以了。

Private Sub Form_Load()
InputBox "请输入ID或日期！", "输入信息！", ""
'在下面不见点击对话框的确定按钮后显示的代码
'............................................
'......................................
'......................................
End Sub

登录窗口.Show vbModal
点确定 主窗口.Show
没有输入信息 End

如果没有登录窗口
Private Sub Form_Load()
t = InputBox("dd", "")
if t="" then end
End Sub

你做一个类似登录窗口的窗体，在这个窗体里面加上一些ID，日期等信息判断，如果满足条件，则Unload me ，主窗体.show；不满足则end 不就可以了吗。

做一个对话框窗口，设为启动窗口

你可以使用事件load()可以达到目的