Dim strsql As String = "select * from message1 where caption=" & Session("caption") & ""
Dim da As New SqlDataAdapter(strsql, Conn)
Conn.Open()
da.Fill(ds, "message1")
Dim deletesql = "Delete from message1 where caption=" & Session("caption") & ""
Dim comm As New SqlCommand(deletesql, Conn)
comm.ExecuteNonQuery()
ds.Tables("message1").Clear()
Dim str3 As String = "select * from message1 "
da = New SqlDataAdapter(str3, Conn)
da.Fill(ds, "message1")
Dim dv As DataView = ds.Tables("message1").DefaultView
DataGrid1.DataSource = dv
DataGrid1.DataBind()
Response.Write("<script defer>alert('处理成功');</script>")
Conn.Close()

运行后没有删除啊！～～～急啊！～～～帮帮忙啊！～～

第 1 行: '《' 附近有语法错误。
出现这样的错误！～～没见过

第 1 行: '《' 附近有语法错误。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.SqlClient.SqlException: 第 1 行: '《' 附近有语法错误。

源错误:

行 36： Dim da As New SqlDataAdapter(strsql, Conn)
行 37： Conn.Open()
行 38： da.Fill(ds, "message1")
行 39： '按ID号删除记录
行 40： Dim deletesql = "Delete from message1 where caption= '" & Session("caption") & "'"