OleDbParameterCollection问题

用VB(Visual Studio 2008)做了个小程序，有两行代码如下：

NewSheft = InputBox("请输入名称")
BooksheftTableAdapter.Adapter.InsertCommand.Parameters("SheftName").Value = NewSheft

运行时，出现如下问题：

An   OleDbParameter   with   ParameterName   'SheftName'   is   not   contained   by   this   OleDbParameterCollection.   

在网上搜了半天，也没弄出个所以然来，于是，尝试着自己解决，最后得偿所愿。

数据源及数据集如下图所示。

解决办法如下：*************以InsertCommand为例，其他的如DeleteCommand等类似。

在DataSet2下的booksheft上右击，选择“Edit DataSet with Designer ”，出现如下图：

然后，选中 booksheftTableAdapter ，查看其属性，

选中 InsertCommand，点右边的下拉箭头，

选择 (New)，结果如下，

选中 Parameters行，

点右边的省略号，得到

Add一个Members，将右边的ParameterName改为SheftName，把SourceColumn改为SheftName，OK。

然后点击CommandText右边的省略号，

得到

选中booksheft，然后Add，

选中SheftName，然后Ok。

依此类推，配置需要的数据库操作。

然后运行正常，OK！^_^