Sub XXeditItemCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)

Dim dr As DataRow
dr = dt.Tables("NJ").Rows(e.Item.ItemIndex)
dr.Item("实际选修人数") = CStr(CInt(sjxx) + 1)
dt.Tables("NJ").AcceptChanges()
Session("dt") = dt
XKDataGrid.EditItemIndex = -1
XKDataGrid.DataSource = dt.Tables("NJ").DefaultView
XKDataGrid.DataBind()
End Sub
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
ad.SelectCommand = New OleDb.OleDbCommand("select * from 年级选修课 where 年级='" & nj & "'", conn)
'执行数据库语句并填充数据到 DataTable 中
Dim ocb As New OleDbCommandBuilder(ad)
ad.UpdateCommand =ocb.GetUpdateCommand ()
ad.Update(dt, "NJ")
End Sub

也没显示错误，可就是更新不到数据库里．．

是因为你用的上GRID更新控键,你换SQL更新看看!你先用UPDATA语句试试再考虑用这个控件,要想自主最好自己编写更新代码,而且你的更新只是在控件上更新,好象没有SQL语句是无法写入数据库的!或者再创建一个控件,用来执行SQL更新的语句,用OleDbCommand("SQL更新语句",数据库连接);SELECT是查询语句!在次之前先把控件的数据保存到DataSet或者DataTable都可以的!