谁帮我改下
谁帮我看看这个代码该怎么修改
我要的是删除的功能……
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim conn As New SqlClient.SqlConnection
conn.ConnectionString = "server=(local);uid=sa;database=ts "
conn.Open()
Dim i As Integer
For i = 0 To DataSet21.a.Rows.Count - 1
Dim s As String

s = DataGrid1.CurrentRowIndex.ToString
s = i
Next

Dim com As New SqlClient.SqlCommand( "delete * from a where 用户= ' " & s & " ' ", conn)
If MessageBox.Show( "是否确定删除？ ", "提示 ", MessageBoxButtons.OKCancel, MessageBoxIcon.Asterisk) = DialogResult.OK Then
com.ExecuteNonQuery()
conn.Close()

End If
End Sub

期待中…………

[解决办法]
把SQL语句 "DELETE * FORM ... "改为 "DELETE FROM ... "，把 "* "去掉试试。