VB6迁移至VB.NET时向Access的Autolog表插入记录及语法错误求解

1. 直接执行SQL操作表的可行性 #

完全可以，不需要依赖CommandBuilder组件，你调整后的直接执行INSERT语句的方案是更优的实现：

• 无需先查询全表数据再追加记录，减少不必要的数据库查询开销，执行效率更高
• 代码逻辑更简洁，无需维护DataSet、DataAdapter等冗余对象
• 后续正式发布扩容更换数据库（如SQL Server）时，仅需调整连接字符串和对应数据库的参数类型，迁移成本极低
  注意Access的OleDb参数按位置匹配而非名称匹配，只要参数添加顺序与SQL语句中占位符的顺序一致即可正常运行。

2. 「每个End Function都必须有对应的前置Function声明」错误原因 #

核心触发原因有3点： #

• 存在重复函数定义冲突：你当前定义了两个MAutolog函数，一个是仅带Action参数的单参数版本，一个是带UserID、Action的双参数版本，两个函数未显式声明重载，也未放在不同的作用域中，编译器识别函数定义时出现冲突，无法匹配到对应的Function声明。
• 模块语法结构不完整：第二段模块内的代码仅写了End Function，缺少模块闭合语句End Module，语法树解析异常触发报错。
• 语法拼写不规范：第二段代码末尾的End function首字母为小写，部分严格编译配置下会出现识别异常。

修复方案 #

建议直接删除旧的CommandBuilder实现版本，保留更轻量化的直接执行SQL的版本，补全语法结构即可：

Module ModFunctions
    ' 兼容原有双参数调用逻辑
    Function MAutolog(ByVal UserID As Long, ByVal Action As String) As Boolean
        Dim SQL = "Insert Into Autolog (UserID, Action) Values (@UserID, @Action)"
        Using con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\PC User\Documents\Freightmaster\resources\freightmaster.accdb"),
              cmd As New OleDb.OleDbCommand(SQL, con)
            cmd.Parameters.Add("@UserID", OleDb.OleDbType.BigInt).Value = UserID
            cmd.Parameters.Add("@Action", OleDb.OleDbType.VarChar).Value = Action
            con.Open()
            cmd.ExecuteNonQuery()
        End Using
        Return True
    End Function

    ' 若需要单参数调用可保留该重载，不需要可直接删除
    Function MAutolog(ByVal Action As String) As Boolean
        ' 可设置默认UserID，如0代表系统操作
        Return MAutolog(0, Action)
    End Function
End Module

内容的提问来源于stack exchange，提问作者Chris J Taverner