VB.net错误“未处理参数Null异常，列参数不能为Null”

我试图在VB.net中创建一个树视图，数据必须从MSAccess 2010数据库加载。当我试图运行这个程序时，我得到一个错误：参数Null异常未处理，“column”参数不能为Null，程序崩溃。代码如下：

导入System.Data.OleDb 公开课 Private Sub frmRating_LoadByVal sender作为对象，ByVal e作为System.EventArgs处理Me.Load '数据库连接和数据集 作为数据集进行分级 Dim CNRating为新的OleDbConnectionProvider=Microsoft.ACE.OLEDB.12.0；数据源=| DataDirectory |\BlockHeadDatabase.accdb；持久安全信息=False； '用于保存记录的数据适配器 作为新的OleDb.OleDb数据适配器从额定值中选择额定值，CNRating Dim DATitle作为新的OleDb.OleDb数据适配器从标题顺序中选择标题，按标题借出类别，CNRating Dim DADVD作为新的OleDb.OleDb数据适配器从DVD中选择DVD编号、分支代码、CNRating '实例化数据集，打开连接并从表中填充dataAdapters DSRating=新数据集 打开 这是一个很好的例子 DATitle.FillDSRating，Title 数据、视频、DVD '关闭与数据存储的连接，释放资源 闭嘴，闭嘴 '在数据表之间创建数据关系对象 DSRating.Relations.AddRatingtoTitle、DSRating.TablesRating.ColumnsRating、DSRating.TablesTitle.ColumnsRating DSRating.Relations.AddTitletoDVD、DSRating.tableTitle.ColumnsTitle、DSRating.tableDVD.ColumnsTitle 作为数据关系的Dim关系 Dim TABLE1列作为数据列 Dim Table2列作为数据列 '检索列 表1列=DSRating.TableRating.ColumnsRating table2Column=DSRating.TableTitle.ColumnsRating '在数据表之间创建数据关系对象 关系=新数据关系关系，表1列，表2列 DSRating.Relations.addrelations DSRating.Relations.AddRatingtoTitle、DSRating.TablesRating.ColumnsRating、DSRating.TablesTitle.ColumnsRating 尝试 DSRating.Relations.AddRatingtoTitle、DSRating.tabletsblvehichile.ColumnsRego\u No、DSRating.tabletblrental.ColumnsRego\u No MsgBoxData关系已完成 特例 MsgBoxCan无法打开连接！ 结束尝试 端接头 末级 标题表中没有分级列，DVD表中也没有标题列

编辑：使用SELECT语句添加*所有列，而不是列列表

Dim DARatings As New OleDb.OleDbDataAdapter("SELECT * FROM Rating", CNRating)
Dim DATitle As New OleDb.OleDbDataAdapter("SELECT * FROM Title Order By Title", CNRating)
Dim DADVD As New OleDb.OleDbDataAdapter("SELECT * FROM DVD", CNRating)

---

你能给我们提供错误的行号吗？我再次检查了两个表中都有标题栏。在这一行->DSRating.Relations.AddRatingtoTitle，DSRating.tableRating.ColumnsRating，DSRating.tableTitle.ColumnsRating上，它给出了一个错误