哪位高手帮小弟我改下

谁帮我改下
谁帮我看看这个代码该怎么修改  
我要的是删除的功能……
  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 ... "，把 "* "去掉试试。