为何会有部分语句不执行

 Private Function DBCreat() As Integer

        Dim ACDCat As New Catalog
        Dim ACDTable As New ADOX.Table

        If File.Exists("AcdDb.accdb") Then
            MsgBox("数据库已存在，使用已有数据库", MsgBoxStyle.OkOnly, "提示")
        Else
            ACDCat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=AcdDb.accdb")
            'ACDCon.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AcdDb.accdb")
            ACDCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=AcdDb.accdb"
            ACDCon.Open()

            ACDTable.Name = "ACDTable"
            ACDTable.Columns.Append("Year/Month", ADOX.DataTypeEnum.adBSTR)
            ACDTable.Columns.Append("Day", ADOX.DataTypeEnum.adInteger)
            ACDTable.Columns.Append("Hour", ADOX.DataTypeEnum.adInteger)
            ACDTable.Columns.Append("Min/Sec", ADOX.DataTypeEnum.adBSTR)
            'ACDTable.Keys.Append("Time", KeyTypeEnum.adKeyPrimary, "Time")
            For i = 1 To 20
                ACDTable.Columns.Append("A" & i, ADOX.DataTypeEnum.adSingle)
                ACDTable.Columns.Append("B" & i, ADOX.DataTypeEnum.adSingle)
            Next i
‘1-20会循环完成，但是下面的语句不会执行，请教为什么
            ACDCat.Tables.Append(ACDTable)

            ACDTable = Nothing
            ACDCat = Nothing
            ACDCon.Close()
            ACDCon = Nothing

            MsgBox("创建新数据库", MsgBoxStyle.OkCancel, "提示")
        End If

        Return 0
    End Function