求解异常源头，并寻求解决方法

求解错误源头，并寻求解决办法
 ''' <summary>
    ''' 将Access表升迁到同构的Sql server表中
    ''' </summary>
1)    Public Function execute() As DataTable
        '检查连接是否正常
        '配置具体的转储数据
        '把两个同结构的Access表，和Sql Server表，转化成System.Data.DataTable类
2)       Dim table1 = BuildDatatalbefromOledb
                                             (Me.accdbtbname, accdbconnect) '取出一个Access数据源表，并转化成一个DataTable类表
3)       Dim table2 = BuildDatatalbefromsql
                                              (Me.sqldbtbname, sqldbconnect) '取出一个Sql Server数据源表，并转化成一个DataTable类表
        '配置两个表的字段对应关系，用一个Dictionary(Of String,String)类反映
4)      Dim mapping As Dictionary(Of String, String) = SetAccTbSqlTbMappings(table1, table2)
5)      If mapping Is Nothing Then
6)        Throw New ApplicationException("没有配置映射表")
7)     End If

        '将table1中的数据按mapping关系填充到DataTable2当中
8)       CopyacctbTosqltb(table1, table2, mapping)
        '更新DataTable2数据源
9)        Dim adapter As SqlClient.SqlDataAdapter = BuildSqldAdapterOfDataTable(table2, Me.sqldbconnect)
        '程序运行到此处一切正常 
10)        adapter.Update(table2.GetChanges()) '在此处出错 
11)       Return table2 '返回用于在终端上显示
    End Function
    


当我删除第10行，运行结束，在窗体上显示正确答案
运行中检测到的InsertCommand.commandText并没发现有错。

------解决思路----------------------
就是 sql语句有错误

你单独 在 sql 管理器运行一下