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

Question

我是想在启动程序时检测数据库链接是否正确,如果正常打开欢迎窗口,错误时打开数据库设置窗口,为什么在错误时打开的窗口即无法打开,请帮助,谢谢!
以下代码是写在标准模块里的. Sub main()
   On Error GoTo errDb
        数据库连接信息省略           '连接成功显示frmWelcome
        frmWelcome.Show
    Exit Sub
errDb:
   ' MsgBox "数据库连接错误" & Err.Description (如果显示这个就正常)    frmDbsetup.Show  '数据库连接错误是这个窗为什么没办法显示,但用以上显示msgbox 即正常,frmDbsetup这个窗件是正常的.
    
    
   End
   Exit Sub
    
 End Sub

Answer 1

' MsgBox "数据库连接错误" & Err.Description (如果显示这个就正常)    frmDbsetup.Show  '数据库连接错误是这个窗为什么没办法显示,但用以上显示msgbox 即正常,frmDbsetup这个窗件是正常的.
    
    
   End
   Exit Sub
去掉End

Answer 2

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

Answer 3

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