这是怎么回事啊 ,帮忙看看啊
Dim mycon As New OleDbConnection(Session("constr").ToString)

Dim str As String = "insert into 物资消耗(部门名称,水电费,标石费,材料费,养路费,汽油费,其它,年份,月份,日期) values (@部门名称,@水电费,@标石费,@材料费,@养路费,@汽油费,@其它,@年份,@月份,@日期)"
Dim com As OleDbCommand = New OleDbCommand(str, mycon)
com.Parameters.Add("@部门名称", OleDbType.VarChar).Value = DropDownList1.SelectedItem.Text

com.Parameters.Add("@水电费", OleDbType.VarChar).Value = Me.TextBox1.Text

com.Parameters.Add("@标石费", OleDbType.VarChar).Value = Me.TextBox2.Text
com.Parameters.Add("@材料费", OleDbType.VarChar).Value = Me.TextBox3.Text
com.Parameters.Add("@养路费", OleDbType.VarChar).Value = Me.TextBox4.Text
com.Parameters.Add("@汽油费", OleDbType.VarChar).Value = Me.TextBox5.Text
com.Parameters.Add("@其它", OleDbType.VarChar).Value = Me.TextBox6.Text
com.Parameters.Add("@年份", OleDbType.VarChar).Value = Me.DropDownList2.SelectedItem.Text
com.Parameters.Add("@月份", OleDbType.VarChar).Value = Me.DropDownList3.SelectedItem.Text
com.Parameters.Add("@日期", OleDbType.VarChar).Value = Me.DropDownList4.SelectedItem.Text

mycon.Open()
com.ExecuteNonQuery()

mycon.Close()
运行显示错误:
说 com.executenonquery() 这行有错,出现异常说:操作必须使用一个可以更新的查询,是怎么回事啊,原来这样是对的,为什么会出现这种情况呢,帮忙看看啊