asp.net查询问题，在线等

Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
Dim a As String = CType(e.Item.Cells(0).Controls(0), TextBox).Text
Dim b As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text
Dim c As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text
Dim d As DateTime = Convert.ToDateTime(CType(e.Item.Cells(4).Controls(0), TextBox).Text)
Dim f As String = CType(e.Item.Cells(5).Controls(0), TextBox).Text
Dim g As String = CType(e.Item.Cells(6).Controls(0), TextBox).Text
Dim mysql As String
mysql = "update cpxs set 必要说明='" + a + "' ,变电站='" + b + "',产品名称='" + c + "',发货日期='" + d + "',随机资料='" + f + "',资料编号='" + g + "' where 资料编号='" + e.Item.Cells(6).Text + "

where 资料编号='" + e.Item.Cells(6).Text + "'" 这就不对.看看这个.你的代码不全.没法看呀.

<%@ import namespace="system.data" %>
<%@ import namespace="system.data.oledb" %>
<script language=vb runat=server>
sub bindlist()
dim conn as string = "provider=microsoft.jet.oledb.4.0;data source = " & server.mappath("ch17\Grades.mdb")
dim sql as string ="Select * From 成绩单"
dim da as new oledbdataadapter(sql,conn)
dim ds as new dataset()
da.fill(ds,"chwu")
dim mytable as datatable = ds.tables("chwu")
mydatagrid.datasource = mytable
mydatagrid.databind()
end sub

sub page_load(sender as object , e as eventargs)
if not ispostback then bindlist()
end sub

sub datagrid_editcommand(sender as object , e as datagridcommandeventargs)
mydatagrid.edititemindex = e.item.itemindex
bindlist()
end sub