vb.net - 如何停止表单的 Load 事件处理程序跳过某些语句

Question

我使用的是 VB 2017。当我运行我的项目时，表单的 Load 事件会一直到达语句Dim engdb As New DAO.DBEngine，然后跳转到 Sub 的末尾。我解决不了。请帮我

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim fullPath As String = AppDomain.CurrentDomain.BaseDirectory
    Dim engdb As New DAO.DBEngine   '<===== read this line and jump to end sub
    Dim db As DAO.Databas    
    db = engdb.OpenDatabase(fullPath & "filename.accdb", False, False)
    '...
    '.
End Sub

标签： vb.net