Public Function Delete(ByVal Table As String, ByVal Row As String, ByVal Value As String) As Integer
            Open()
            Dim strSQL As String = "Delete From" + Table + "Where" + Row + "=" + Value
            Dim cmd As SqlCommand = New SqlCommand(strSQL, conn)
            Dim count As Integer = 0
            count = cmd.ExecuteNonQuery()
            Close()
            Return count
        End Function

在线等待....有高手指一下吗？

你调试是哪一句出问题就找哪一句

Dim strSQL As String = "Delete From" + Table + "Where" + Row + "=" + Value
1、 "Delete From" 改为  "Delete From "
2、"Where" 改为 " Where "
3、Value 若不是变量，就应该是某个控件的值，应写为 某控件.Text。

注意单词之间的空格

[ 本帖最后由 sywzs 于 2010-6-10 08:01 编辑 ]

如果是字符串型的value变量应该为 "='" & value & "'"