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

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