帮我看一下这段代码错在那里

[clicknet]

我是想在启动程序时检测数据库链接是否正确,如果正常打开欢迎窗口,错误时打开数据库设置窗口,为什么在错误时打开的窗口即无法打开,请帮助,谢谢!
以下代码是写在标准模块里的.

Sub main()
On Error GoTo errDb
数据库连接信息省略

'连接成功显示frmWelcome
frmWelcome.Show
Exit Sub
errDb:
' MsgBox "数据库连接错误" & Err.Description (如果显示这个就正常)

frmDbsetup.Show

'数据库连接错误是这个窗为什么没办法显示,但用以上显示msgbox 即正常,frmDbsetup这个窗件是正常的.


End
Exit Sub

End Sub

[yoki]

多了一个END
在Load对应窗体后又退出了，所以你看不到

[yoki]

Sub main()
On Error GoTo errDb
数据库连接信息省略

'连接成功显示frmWelcome
frmWelcome.Show
Exit Sub
errDb:
' MsgBox "数据库连接错误" & Err.Description (如果显示这个就正常)

frmDbsetup.Show

'数据库连接错误是这个窗为什么没办法显示,但用以上显示msgbox 即正常,frmDbsetup这个窗件是正常的.


End ---〉去掉这个End
Exit Sub

End Sub

[subzero]

' MsgBox "数据库连接错误" & Err.Description (如果显示这个就正常)

frmDbsetup.Show

'数据库连接错误是这个窗为什么没办法显示,但用以上显示msgbox 即正常,frmDbsetup这个窗件是正常的.


End
Exit Sub


去掉End