主题：一运行就出错

Dim ck As DataTable
Dim cmd As New SqlCommand()
cmd.C
Try
    cmd.BeginTransaction()
    cmd.CommandText = "S elect * From Dlyndx"
    ck = cmd.ExecuteReader(True) '加上参数True,生成的DataTable可修改保存
    Dim dr As DataRow = ck.AddNew() '增加一个订单
    dr("DATE") = "2020-09-15"
    dr("btypeid") = "0002500044"
    dr("btypeid") = "00010"
    dr("ktypeid") = "00006"
    dr("SUMMARY") = "9.12燕瑞出武义2件(金额:638*0.44=280.72元.直调出库单:DO-2201-200912-0935)"
    dr("TOTAL") = "280.72"
    ck.Save()
    If ck.HasChanges Then '如果任何一个表保存失败
        cmd.Rollback()  '则回滚事务
    Else
        cmd.Commit()  '否则提交事务
    End If
Catch ex As Exception  '如果出错
    cmd.Rollback()  '则回滚事务
    MessageBox.Show(ex.Message, "错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try

运行出错